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Foreword 



The RCA CDP1801 and CDP1802 COSMAC Microprocessors are 
CMOS 8-bit register-oriented central processing units. They are suit- 
able for use in a wide range of stored-program computer systems and 
products. Often, their apphcations require extended precision arith- 
metic calculations with possible interfacing of the system to BCD- 
oriented peripheral hardware. For such applications, this Manual 
provides a set of 1 6-bit 2's complement arithmetic subroutines de- 
signed to be operated on the RCA COSMAC Microprocessors. 
Versions are supplied for use with either the RCA CDP1801 or 
CDP1802. A suitable selection from this set of subroutines may be 
made for the calculations required in a specific application. 

The subroutines described in this Manual are also available in source 
language on a floppy diskette CDP18S826 for use with the RCA 
Floppy Disk System CDP18S800. 

In this Manual, the 29 Binary Arithmetic Subroutines are described, 
fu-st in generaj and then in detail. A Standard Call and Return 
Technique for facilitating their use is provided along with complete 
listings. Additionally, BCD-to-binary and binary-to-BCD conversions 
are described. As a tutorial aid, a sample program is also provided. 

Users requirmg additional information on the available hardware, 
firmware, and software support systems should refer to the COSMAC 
technical literature. Reference should be made to the device technical 
data sheets and to the following ptiblicalions: \ 

MPM-201 User Manual for the RCA CDP1802 COSMAC 
Microprocessor 

MPM-202 Timesharing Manual for the RCA CDP1802 COSMAC 
Microprocessor 

MPM-203 Evaluation Kit Manual for the RCA CDP1802 COS- 
MAC Microprocessor 

MPM-208 Operator Manual for the RCA COSMAC Development 
System 

MPM-101 User Manual for the CDP1801 COSMAC Micro- 
processor 

MPM-102 Program Development Guide for the CDP1801 COS- 
MAC Microprocessor (Timesharing) 
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Binary 



Introduction 



3. 16-bit 2's complement Multiplication which yields 32- 
bit result: 



The Binary Arithmetic Subroutine Package given in 
this Manual is a set of I6-bil 2's complement arithmetic 
subroutines designed to be operated on a COSMAC 
microprocessor. The subroutines are coded in Level-I 
assembly language and require IK-byte of memory space. 
These subroutines do not alter themselves and can be 
stored in Read-Only Memory, Different versions are 
available for the CDP1801 and CDP1S02. The subrou- 
tines may be used individually or in any combination. 

Four arithmetic functions are included: 



1 . 1 6-bit 2's complement Addition: 
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28092 



2. 16-bit 2's complement Subtraction: 

R bit , 8brt , 
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4. 32-bit 2's complement Division which yields 16-bit 
result: 



8 bit Sbit 



*-16bit — • 


•—16 bit -»j 


4 *\ 
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R(AC) j Memorv 
















Pointer 
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BCD-to-binary and binary-to-BCD conversions together 
with utility routines (v/hich can be used to save or restore 
the contents of registers) are provided. 



CDP1801: 

f«- 16 bil -**| 



R(AC) 
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S bit 


8 bit 


8 bit 


8 bit 










Sign 
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Binary Arithmetic Subroutines for RCA COSMAC Microprocessors 



Various applications of these subroutines are possible. 
For example, a user may enter BCD numbers from 
external devices, manipulate these numbers in 2's 
complement arithmetic functions, and finally output the 
result in BCD form back to externa! devices. A diagram 
of such an application is given in Fig. 1 . 



[External Davicesl 



Ussr'i ApFri I cation 
Program 



CDP1B01/1802 Arilhmeti 
SubiOLJIiiie Package 



Binary 



-I-,-."./ 
< » 



BCD jz^ Binary 



j CDP1801/180Z ProBram j 

Fig. 1 — Example of microprocessor system using 
the arithmetic subroutine pactoge. 



il is possible to use the arithmetic function(s) only, 
as diagrammed in Fi^. 2. or a combination of these 
subroutines to suit the user's needs. 



CDP1801/1802 Arithmetic 
Subroutine Package 




Fig. 2 - Application using arithmetic functions only. 



Basic Conventions 



All of the subroutines in this package fol!ow the call 
and return conventions described in the User Manual for 
the RCA CDP1802 COSMAC Microprocessor (MPM-201). 
A stack area in RAM is also implied. Symbolic register 
names are u.sed to permit custom modifications and 
register allocation. The standard registers' definitions and 
their functions are: 



R(SP) = R2 . . The stack pointer. 

R(PC) = R3 . . The program counter used by 
all the subroutines. 

R(CALL) = R4 . . Pointer to CALL routine. 

R(RETN) = R5 . . Pointer to RETURN routine. 

R(LINK) = R6 . . Pointer to arguments passed 
from main progiain. 

R(AR)^RA .. Pointer 10 BCD digits in mem- 
ory. Used in BCD conversion 
routines. 

R(NR) = RB . . Counter for the number of 

BCD digits. Used in BCD con- 
version routines. 

R(CR)= RC . . Scratchpad and counter. Used 
in multiply, divide and others. 

R(MA) = RD . . Pointer to the address of one 
of the two operands in add, 
subtract, multiply and divide 
operations. 

R(MQ) = RE . . 1 6-bit accumulator or sign ex- 
tension. Used in multiplication 
and division to hold the most 
significant half of the product 
and dividend. It is also used to 
store the remainder after a 
divide operation. 

R(AC)=RF .. 16-hit accumulalor. Used as 
one of the two operands for 
all computations. 
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Subroutine Categories 

A list of the binary arithmetic subroutines by category 
together with a description of their functions follows. 

The secondary subroutines shown are used inlernaliy 
by the other subroutines only. Their functions, therefore, 



will not be described in further detail. For the inlcrcsted 
user, commented coding is provided on the actual lisling 
of the binary arithmetic subroutine package. These 
secondary routines are relatively short and self-explana- 
tory. 



I. ADDITION 

ARGUMENT FUNCTION 



aaaa 



nnnn 



R(AC)+M(OPHRAND POINTER) ^ R(AC) 

R{AC)+OPERAND * R(AC) 

R{AC)+CONSTANT * R(AC) 

R(AC)+lwo bytes on slack * R(AC) 



M(OPERAND POINTER)- R(AC) ^ R{AC) 



NAME 
ADDOP 
ADD 
ADDCON 
ADDST - - - 

II. SUBTRACTION 

SDOP aaaa 
SD 

SDCON nnnn 
SMOP aaaa 
SM 

Ml. MULTIPLICATION 

MPYOP aaaa 
MPY 

IV. DIVISION 

DlVOl 
DIVO 
DIV 
DIVQ 

V. BINARY-CODED-DECIMAL NUMBER CONVERSION 

CBD auaa.nn Binary in R{AC)* BCD 

CDB aaaa.nn BCD -»■ Binary in R(AC) 

Vi. UTILITY ROUTINES 

PUSH AC 



aaaa 



OPERAND R( AC) 

CONSTANT -R(AC) 
RtAC) MiOPtRAND POINTER) 
R{AC) OPERAND 



R(AC)*M(OPERAND POINTER] 
R(AC)*OPERAND 



> R(AC) 

^ R(AC) 
^ R{AC) 
^ R(AC) 



> |R(MQ);R(AC)1 
* |R(MQ):R(AC)] 



1R(MQ);R(AC)!/M(0PI:RAND POINTER) *R( AC) 
/cro divide check and sign extension 
quotient overflow check 
|R(MQ);R(AC)]/OPERAND * R(AC) 



PUSHCQ 

POPAC 

POP 

POPCO 

LOAD OP 

LOAD 

LODCON 

STOROP 

STORF 

COM POP 

COMP 

TEST 

SWAPAQ 



nnnn 
aaaa 



aaaa 



R( AC )^ slack 
R(M0).R(MA).R(CR)> slack 
stack R( AC) 
stack discard 

slack R(MQt.R(MA),R{CR) 

M(OPERAND POINTLR)-> R(AC) 

OPERAND^ R( AC) 

CONST ANT ■>R( AC) 

R(A( I- MtOPFRAND POINTER) 

R(AC)- OPHRAND 

If R(AC)>M(OPFRANDPOINTFR)llien I ♦ DF 
h R(AC)>OPHRANDllieii 1 > DF 
compare R(AC)withO 
R(AC);tR(MQ) 



VIL SECONDARY ROUTINES 



DABS* 
DSM* 
DVA* 

DSML* 

DZS 



ABS|R(M0)1 ABS(OPFRAND) 
entry point of DABS 
entry point of DABS 
MQ^iO ^ MQ 

clear memory locations for BCD 



R(MQ) 



NOTES: 

aaaa is two bytes address of operand. * found in CDPI80I version only, 
nnnn is two bytes constant literal. 
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Meaning of OF 



The calling sequences of (he subroutines are similar; 
the only differences are the nature of their argumenls. 

Some routines deal implicitly with an operand on the 
stack, or with an operand pointed to by the address 
register. Some fetch the address of the operand from the 
call sequence argumenl list, and others fetch the actual 
argument from the call sequence. Typically, a routine 
which fetches the address of an operand is used if the 
operand is a variable. On the other hand, a routine that 
fetches the actual argument is used if the operand is a 
conslant. For instance, if the function A=B/C+5 is to be 
performed, the calling sequence of the divide and add 
routines could be: 
SEP CALL 

,A(D1V0P) . . assume [R(MQ);R(AC)] con- 
tain the variable B. 
,A{C) , . address of the variable C in 

memory, 
. . now R(AC) contains the quo- 
tient of the 
. . operation B/C. 

SEP CALL 
,A(ADDCON) ' 

,X'0005' . . (ho constant 5 is to be added 

to the 

. . quotient of B/C stored in 

R(AC)previously- 
. . now R(AC)containsi B/C+5 

Algorithms 

The add and subtract routines use ordinary 2's com- 
plement add and subtract methods. For multiplication, 
the add-shift algorithm is implemented. The divide 
routuR- uses the nonrestoring method. These algorithms 
can be found in computer arithmetic books. For example, 
see Digital Computer Design Fundamentals by Yaohan 
Chu, McGraw-Hill Book Company. 

The BCD-to-binary conversion is accomplished by 
taking the digits in order, starting with the most signi- 
ficant, and adding them to ten times the previous partial 
result— successively. 

The binary-to-BCD conversion for the CDP180I is 
implemented in the reverse order. The binary number in 
register AC is divided by ten successively until R(AC) 
becomes zero. On each iieration, the remainder is the 
corresponding BCD digit starting from the least signi- 
ficant. DZS is an internal subroutine used to initialize all 
the digits to zero. 

The implementation of the binary-to-BCD conversion 
for the CDP1802 is faster than that for the CDPI80I. It 
is described in the book referenced above. 



The add, subtract, divide, BCD-to-binary conversion, 
and binary-to-BCD conversion routines affect DF. The 
DP is set if the result has overflowed. Since no overflow 
condition is possible for multiplication, the multiply 
routine sets DF if the product is greater than 16 bits. 
Some of the subroutines also use DF to indicate the 
terminal condition of an operation. For example, the 
compare subroutine sets DF if the content of R(AC) is 
greater than or equal to the operand pointed lo by 
register MA. Thus, it is assumed and is essential that the 
subroutine linkage routines do not alter the state of DF. 
The "Standard Subroutine Call and Return Technique" 
is assumed. Appendix A contains a listing typical of these 
programs. 



Utility Routines 

Four of the general registers R(AC), R(MQ), R(MA), 
and RfCR), are used by various routines. For programs 
that need these registers, special routines have been in- 
cluded which save them on the stack, and later restore 
them. Accordingly, tht- legistcr s;ivc and restore roittines 
are completely indcpcnJcn-.. In pat (icular, these routines 
are partitioned into two .scis: routines to push and pop 
the accumulator, and routines to push and pop the other 
three registers as a block. The separate routines for the 
accumulator permit Intermediate results to be saved on 
the stack for later use in computation. In addition, a 
KHiiinc is provided to swap or exchange the accumulator 
with the accumulator extension, which is used in multi- 
piication and division. 

It is assumed that the stack pointer normally points 
to one byte above the first of two bytes stored by the 
subroutine call operation (i.e., the iusl pushed, having the 
lower memory address), and that these two bytes are 
normally popped off by the return operation. Note that 
this assumption is consistent with the standard subroutine 
linkage conventions. Thus, to save data on the stack, the 
data must be inserted beneath those first two bytes, so 
that when they are popped off, the saved data, will be on 
top. Similarly, when the data is to be recovered, it must 
be fetched from beneath the top two bytes, then the gap 
closed up. One of the entries to the binary add routine 
also permits using the virtual top of the stack as one 
operand (that is, the top of the stack as seen by the ■ 
calling program). 
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Some of the lines in the listing have one or more flags 
on The right margin. They consist of a symbol enclosed 
within parentheses. These symbols are used to Oag 
"Defined Options" which are specified in the notes to 
follow. Usually to invoke a particular option, all of the 
lines flagged by the same character are altered in some 
specified way. 

(@) Separate Stack 

While it is expected that the user will utilize the 
standard subroutine linkage, there is no requirement that 
the stack pointer used for the binary arithmetic be the 
same as that for the subroutine linkage. Since some of 
these routines do not themselves make use of the call 
linkages, it is not always necessary to use a slack for the 
calls. If a slack is not needed, subroutines PUSHCQ, 
PUSHAC, POPCQ and POPAC are inappropriate. If their 
functions are desired, the routines must be rewritten 
omitting the operation of slicing off the lop of the stack 
and working under it (actually this results in the routines 
being trivially simple, so the user should have no diffi- 
culty receding them). If the arithmetic from the top of 
the stack is still a desirable feature, the lines flagged by 
{@) must be deleted, so that R(MA) will point to the 
actual top of the stack. 

(0) 16-Bit Dividend 

By retaining the lines so flagged, and deleting the lines 
flagged (/), the divide routine will assume that all divi- 
dends fit entirely into the R(AC), and that error condi- 
tions jan occur only if the divisor is zero. 

(/) 32-Bit Dividend 

By retaining the lines so flagged, and deleting the lines 

flagged (0), the divide routine will assume that all divi- 
dends occupy the full 32 bits of the R(AC) and R(MQ), 
and that a divide fault is possible only if the quotient re- 
suh of the dividend divided by the divisor would exceed 
the 1 6 bits of the R(AC), or if the divisor is zero (which 
is equivalent to an infinite quotient). 

(0) (/) No Divide Check 

By deleting all the lines flagged by either (0) or (/), 
the divide routine will perform no testing on the possi- 
bility of a divide fault. This deletion poses the simple 
hazard that the numbers resulting from the operation will 
be meaningless if a divide fault occurs, and no indication 
of the error will be returned to the calling routine. Note 
that in this option, the dividend is assumed to be 32 bits. 

If the user needs to make alterations to the routines, 
or if some are omitted, their placement in memory may 
need changing to eliminate possible branches out of page. 



Timing measurements, given in Fig. 3, were taken on 
the arithmetic and code conversion subroutines. For the 
CDP1801 version, the speed is limited by the size of the 
program since the objective is to fit the total package into 
1-K of memory. However, with the CDP1802 instruction 
set, it is possible lo meet this memory space requirement 
while optimizing for speed. All the measurements were 
based on a clock rate of 2 MHz. The actual timing can be 
rescaled depending on the user's application system 
clock rate. For instance, if the CDP1802 is operated at a 
6-MHz clock rate, the time shown is reduced by a factor 
of three. 



Arithmetic Functions 





ADD 


SUBTRACT 


MULTIPLY 


DIVIDE 


Best: 


0.152 ms 


0.168 tm 


3.112 ms 


13.80 ms 


Worst: 


0.264 ms 


0.32 ms 


g.782 ms 


16.15 ms 



II. BCD £ BINARY 



Beit: 
Worst: 



BINARY • BCD 


BCD - BINARY 


15.36 ms 


5,84 ms 


73.48 mi 


29,76 ms 



Fig. 3(a}~Timing measurements for the RCA CDP1801 
COSMAC Microprocessor (based or^ 2-MHz 
clock rate}. 



I. Arithmetic Functions 



Best: 
Worst; 



ADD 


SUBTRACT 


MULTIPLY 


DIVIDE 


0.136 ms 


0.128 ms 


2.792 ms 


4.496 m'; 


0.224 ms 


0,256 ms 


4,223 ms 


5.856 ms 



II. BCD ;t BINARY 



Best: 
Worst: 



BINARY - BCD 


BCD BINARY 


4,37 rris 


0.31 ms 


9.27 ms 


2,67 ms 



Fig. 3(b}- Timing measurements for ttie RCA COP 1802 
COSilfAC Microprocessor (based on 2-MHz 
ciocl< rate). 
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Detailed Description of Subroutines 



n 



Detailed Description of Subroutines 



The following mjlerial provides a detailed description 
of each subroutine and how it is used. For ease of use this 
information is given in a standard format which includes 
the subroutine identification, its function, the calling 



procedure, the registers used, other subroutines used, the 
meaning of DF on return, the number magnitude, the 
time range for the subroutine, its length in bytes, and, 
where helpful, an example. 



Index by Category 




Index - 


Alphabetically 


Subroutine 


Page 


Subroutine 


Page 


I. ADDITION 








ADDOP 


12 


ADD 


12 


ADD 


12 


ADDCON 


12 


ADDCON 


12 


ADDOP 


12 


ADDST 


13 


ADDST 


13 


II. SUBTRACTION 




CBD 


IS 


SDOP 


13 


CDR 


1 y 


SD 


13 


COMP 


22 


SDCON 


14 




2"^ 


SMOP 


14 


DIV 




SM 


14 


nivn 


1 fs 


III. MULTIPLICATION 




DIVOP 


16 


MPYOP 


15 


DIVQ 


16 


MPY 


15 


LOAD 


21 


IV. DIVISION 
DIVOP 


16 


LOADOP , 
LODCON 


21 
21 


DIVO 


16 


MPY 


15 


DIV 


16 


MPYOP 


15 


DIVQ 


16 


POP 


20 


V. BINARY-CODED-DECIMAL 


POPAC 


20 
20 


NUMBER CONVERSION 


POPCQ 


CBD 


18 


PUSHAC 


20 


CDB 


19 


PUSHCQ 


20 


VI. UTILITY ROUTINES 
PUSHAC 
PUSHCQ 


20 
20 


SD 

SDCON 
SDOP 


13 
14 
13 


POPAC 


20 


SM 


14 


POP 


20 


SMOP 


14 


POPCQ 


20 


STORE 


22 


LOADOP 


2i 


STOROP 


22 


LOAD 


21 


SWAPAQ 


23 


LODCON 
STOROP 


21 

22 


TEST 


23 


STORE 


22 






COMPOP 


22 






TEST 


23 






SWAPAQ 


23 
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1. Subroutine: 

ADD 

2. Function: 

ADDOP and ADD are two entries of a subrou- 
tine tiiat add the content of R(AC} and a two- 
byte operand in memory pointed to by R(MA). 
The sum is stored in R(AC). 

ADDOP fetciieii tiie address of operand from 
the calling program and sloxes it in R(MA). 

ADD assumes the address of operand is already 
in R(MA). 

3. Calling Procedure: 

■ ■ enter from ADDOP 
SEP CALL 

,A(ADDOP) 

,A(OPR) - .where OPR is 

. . the address of the 
. . operand. 

■ ■ enlt'i ADD 
Si-rCALl. ^ ~~ 

,A(ADU) . . R(MA) contains the address of 
. . operand. 

4. Registers Used: 

R(LINK) for ADDOP only, R(MA), R(AC), R(SP). 

5. Other Subroutines Used; 

ADDOP : should be followed in memory by ADD. 
ADD : none 

6. On Return: 

DF = 0 means addition was successfuL 
DF = 1 means the sum has exceeded the maximum 
or minimum range of representable numbers. 

7. Number: 

Representation: Signed 2's complement 

Width: 16 bits 

Range : 8000 < number 1 6 ^ 7 FFF 

-32768 < number 10 < 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Best 0.152 - ms 

Worst 0.264 - ms 

Best 0.136 0.042 ms 



CDPISO 



CDP18a2 
9. Length: 



Worst 



0.042 
0.060 



ms 



CDP1801 

version 
41 
37 



CDPI802 
version 

26 bytes 
22 bytes 



ADDOP 
ADD 
10. Example: 

, .assume AC = FFFE(=-2); 

assume M(OPR) = #0001 
. . enter from ADDOP 
SEP CALL 
,A(ADDOPj 

.A(OPR) . . address of operand 

[code! . . R(AC) is now FFFF(=-1) 

. .with DF =0 



1. Subroutine: ADDCON 

2. Function: 

This subroutine adds the content of R(AC) to the 
two-byte constant passed from the calling program. 
The sum is placed in R(AC). 

3. Calling Procedure: 
SEP CALL 
,A(ADDCON) 

,X'nnnn' . . where nnnn is the 

. . constant to be added to R(AC). 

4. Registers Used : 

R(LINK), R(MA), R(AC), R(SP). 

5. Other Subroutine Used: 
ADD 

6. On Return: 

DF - 0 means addition was successful. 
DF = 1 means the sum exceeded the maximum or 
minimum range of representable numbers. 

7. Number: 

Representation: Signed 2's complement 

Width: 16 bits 

Range: 8000 < number < 7 FFF 

-32768 < numberjo < 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Best 0.208 - ms 

Worst 0.288 - ms 

Best 0.192 0.060 ms 



CDP1801 



CDP1802 
9. Length: 



Worst 0.216 

CDP1801 

version 
45 



0.060 
0.067 



ms 



CDPi802 
version 

30 bytes 



Detailed Description of Subroutines 
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1. Subroutine: ADDST 

2. Function: 

ADDST adds the content of R(AC) to the top two 
bytes of stack. These two bytes should be stored in 
a sequence such that the more significant part is on 
the top and the less significant part is at the bottom. 

3. Calling Procedure; 
SEP CALL 

,A(ADDST) . . 2-byte constant is stored 
- . on top of stack. 

4. Registers Used ; 

R(LINK), R(MA), R(AC), R(SP). 

5. Other Subroutine Used : 
ADD 

6. On Return: 

DF = 0 means addition was successful. 
DF = 1 means the sum exceeded the maximum or 
minimum range of representable numbers. 

7. Number: 

Representation: Signed 2's complement 
Width: 16 bits 

Range: 8000 < number j 5 < 7FFF or 

-32768 < numberjo < 32767 

8. Time: 

CLOCK RATE; 2 MHz 6.-; iViiiz 

Best 0.218 - ms 

- ms 



CDP1801 



CDP1802 
9. Length: 



0.218 
Worst 0.298 
Best 0.204 
Worst 0.224 

CDPiSOl 
version 
46 



0.064 
0.070 



ms 
ms 



CDP1802 
version 

3] bytes 



!. Subroutine: SDOP 

SD 

2. Function: 

SDOP and SD are two different entries of a sub- 
routine that subtract R(AC) from the contents 
of two bytes in memory that is pointed to by R(MA). 

SDOP fetches the address of minuend from the 
calling program and stores it in R(MA). 

SD assumes the address of minuend is already in 
R(MA). 

3. Calling Procedure: 

, . to enter from SDOP 

SEP CALL 
,A(SDOP) 

.A(MINU) . . where MINU is the address 

, . of ihe minuend. 

• ■ to enter from SD 

SEP CALL 

,A(SD) . . the address of minuend should be 
. . in R{MA). 

4. Registers Used : 

R(LINK) for SDOP only, R(MA), R(AC), R(SP). 

5. Other Subroutines Used: 

SDOP: should be followed in memory by SD. 
SD : none 

6. On Return: 

DF = 0 means subtraction was successful. 

DF = 1 means subtraction was unsuccessful because 
tlu' diflciciice lias c.\cccd(ul lik; iiKiximuMi 01 
minimum range of representable numbers. 

7. Number: 

Representation: Signed 2's complement 
Width: 16 bits 

Range: 8000 < numberi^ < 7FFF or 

-32768 < number 10 < 32767. 

8. Time; 

CLOCK RATE; ,2 MHz 6.4 MHz 

Best ■ 13.168 ms 

Worst 0.256 - ms 

Best 0.128 0.040 ms 



CDP1801 



CDPI8O: 
9. Length: 



Worst 



CDPlSOi 
version 



0.040 
0.057 

CDP1802 
version 



ms 



SDOP 


35 24 bytes 


SD 


31 20 bytes 


Example : 




[code] 


. . assume R(AC) = X'OOOA' 




. . assume M(M1NU) = X'0005' 


SEP CALL 




,A(SDOP) 


. . enter from SDOP 


,A(MINU) 


. . address of minuend will be 




. . fetched by SDOP 


[code] 


. . R(AC) is now FFFB (= -0005) 




. . with DF = 0. 
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Binary Arithmetic Subroutines for RCA COSMAC Micro processors 



1. Subroutine: 

2. Function: 

This subroutine subtracts AC from a 1 6-bit con- 
stant and stores the difference in AC. 

3. Calling Procedure : 

SEP CALL 
,A(SDCON) 

,X'nnnn' . . where nnnn is the constant. 

4. Registers Used ; 

R(LINK), R(MA), R(AC), R(SP). 

5. Other Subroutine Used: 

SD 

6. On Return: 

DF = 0 means subtraction was successfuL 

DF = J means subtraction was unsuccessful because 

the difference exceeded the maximum or 
minimum range of representabJe numbers. 

7. Number: 

Representation: Signed 2's complement 
Width: 16 bits 

Range; 8000 < number ^ 5 < 7FFF or 

-32768 <numberio< 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 

Best 0.216 -- ms 

Worst 0.272 - ms 

Best 0.184 0,057 ms 
Worst 0.208 0.065 ms 

9. Length: 

CDP1801 CDP1802 
version version 

39 28 bytes 

10. Example: 

[code] . . assume R(AC) = X'0OO2' 

SEP CALL 
,A(SDCON) 

,X'0002' . . constant is X'0005' 

,(code] . . R(AC) is now X'0003' with DF = 0 



CDP180I 



CDPj802 



1. Subroutine: SMOP 

SM 

2. ~ Function: 

SMOP and SM are two different entries of a sub- 
routine that subtract the contents of two bytes 
in memory, which is pointed to by R(MA), from 
R(AC). SMOP fetches the address of subtrahend 
from the calling program and stores it in R(MA). 
SM assumes the address of subtrahend is already 
in RfMA). 

3. Calling Procedure : 

. . lu ^lilu: ilUill SMUP 

SEP CALL 
,A(SMOP) 

,A(SUBT) . . where SUBT is the 

, . address of the subtrahend. 



SEP CALL 
,A(SM) 



. to enter from SM 

. RfMA") should contain 
. the address of subtrahend. 



4. Registers Used: 

R(LINK) for SMOP only, R(MA), R(AC), R(SP). 

5. Other Subroutines Used: 

SMOP: should be followed in memory by SM. 
SM : none 

6. On Return : 

DF = 0 means subtraction was successfuL 
DF = I means subtraction was unsuccessful because 
the difference Iras exceeded the maximum or 
minimum range of representabJe numbers. 

7. Number: 

Representation: Signed 2's complement 
Width: 16 bits 

Range: 8000 < number | 7FFF or 

-32768 < number 10 < 32767 

8. Time: 
CLOCK RATE: 

Best 



CDP1801 

CDP1802 
9. Length: 



Worst 

Best 

Worst 



2 MHz 
0.216 
0.320 
0.192 
0.256 



6.4 MHz 



0,060 
0.080 



ms 
ms 
ms 
ms 



SMOP 
SM 

10. Example: 

[code] 

SEP CALL 

,A(SM) 
[code] 



CDP180I 
version 

49 
45 



CDP1802 

version 

34 bytes 
30 bytes 



.assume M(100; 101) = 0001 and 
. R(MA) = 0100 and R(AC) = 8000 

. take SM entry 
. DF= 1 

. difference exceeded the 
. maximum range of negative 
. number 



Detailed Description of Subroutines 
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1. Subroutine: 



MPY 



2. Function: 

MPYOP and MPY are two different entries of a 
subroutine that multiply R(AC)by the contents 
of two bytes in memory which are pointed to by 
R(MA). The product is placed in R(MO) and 
R(AC) with the highest bit of R(MQ) as the sign 
bit and the lowest bit of R(ACJ as the least signi- 
ficant bit. 

MPYOP fetches the address of multiplier from 
the caJhng program and stores it in R(MA). 

MPY assumes the address of multiplier is already 
in R(MA). 

3. Calling Procedure : 

■ . to enter from MPYOP 

SEP CALL 
A(MPYOP) 

,A(MPLR) . . where MPLR h the address 



. . of the nmltiplier. 
. . to enter from MPY 



SEP CALL 
,A(MPY) 



. . the address of mullipiier 
. .should be in R(MAJ. 

4. Registers Used : 

R(LINK) for MPYOP only, R(MA), R(MQ), R(AC), 

R(CR), 

5. Other Subroutines Used: 

MPYOP: should be followed in memory by MPY. 
MPY : DSM, DVA (for CDPlSOi version only). 

6. On Return: 

DF = 0 means product < 16 bits 
DF = 1 means product > 1 6 bits 



7. Number: 

Representation: Signed 2's complement 
Width; Multiplicand and Multiplier: 

1 6 bits 
Product: 

32 bits 

Range: Multiplicand and Multiplier: 

8000<number|5<7FFFor 
-32768 < number iQ < 32767 

Product: 

C0008000 < number | 40000000 

- 1 073709056 < number ] q < 1 07 374 1 824 

8. Time: 

CLOCK RATE 2 MHz 6.4 MHz 

Best 3.1 12 - ms 

Worst 9.782 ~ ms 

Best 2.792 0.872 ms 
■ 1.320 ms 



CDPlSOi 



CDPI8O; 



CDF 1802 

version 

81 bytes 
77 bytes 



3.1 12 
9.782 

2.792 
Worst 4.223 

9. Length: 

CDPiSOl 

version* 
MPYOP 131 
MPY 127 
♦Including secondary subroutines, 

10. Example: 

[code] . . assume M(MPLR) = X'OOOl' 

. . assume R{AC) = FFFF(= 0001) 

SEP CALL 

,A(MPYOP). . enter from MPYOP 
,A(MPLR) 

[code] . . [R(MQ); R(AC)j = FFFFFFFF(= - 1 ) 
. . with DF = 0 since the magnitude 
. . of product is less than 15 bits 
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Binary Arithmetic Subroutines for RCA COSMAC Microprocessors 



1. Subroutine: DIVOP 

DIVO 

DIV 

DIVQ 

2. Function: 

DfVOP, DIVO, DIV, DIVQ are four different entries 
of a subroutine which divide the contents of [R(MQ); 
R(AC)] by the contents of two bytes in memory 
pointed to by R(MA). 

Upon returning from the subroutine, R(AC) con- 
tains the quotient and R(MQ) contains the remainder. 

DIVOP fetches the address of divisor from the call- 
ing program and stores it in R(MA). 

DIVO assumes the address of divisor is already in 
R(MA) and the magnitude of dividend does not ex- 
ceed 15 bits. It extends the sign bit of R(AC) into 
R(MQ), and does a divide check (divisor = 0). 

DIV also assumes the address of divisor is aheady 
in R(MA). It checks dividend against divisor to 
make sure that the magnitude of quotient will not 
exceed 15 bits. The divisible numbers are shown on 
the following page. 

DIVQ assumes R(M A) cmiiains the address of divisor. 
It divides [R(MQ); R(AC)J by the operand ui mein- 
ory which is pointed to by R(MA). Wlien returning 
to the calling program, R(AC) contains the quotient 
with remainder stored in R(MQ). This entry does not 
check condition; hence, it is the user's responsibility 
to determine if the quotient is meaningful. 

3. Calling Procedure; 

. ■ enter from DIVOP 

SEP CALL 
,A(DIVOP) 

,A(D1VR) . . wlicre DIVR is the 
. . address of divisor. 



SEP CALL 



, . enter froin the otiiei' entry points 



,A(DIVO) , . or DIV, or DIVQ 

. . the address of divisor 
, , should be in MA. 

4. Registers Used: 

DIVOP: R(LINK), R(MA). 

DIVO; R(MA), R(AC), R(MQ). 

DIV: R(CR), R(MQ), R(AC), R(MA). 

DIVQ: R(CR), R(MQ), R(AC). R(MA), R(SP). 

5 . Other Subroutines Used : 

DIVOP: The code should fall through DIVO and 
DIVQ if zero divide check and sign extension op- 
tion (which is performed by DIVO) is chosen. 



Alternatively, the code could fall through DIV 
and DIVQ if the option of quotient overflow 
check is selected. 

DIVO: The code should fall through DIV, DIVQ. 

DIV: (1) The code should faU through DIVQ. 

(2) DSHL, DABS (for CDPI801 only). 

DIVQ: DSHL, DABS (for CDP1801 only). 

6. On Return: 

DF = 0 means division was successful. 
DF= 1 means: 

(1 ) If subroutines are in sequence of 
DIVOP, DIVO, DIVQ, or DIVO, 
DiVQ: Division was unsuccessful 
because [R(MQ); R(AC)] division 
by 0 was attempted. 

(2) If subroutines are in sequence of 
DIVOP, DIV, DIVQ or DIV, DIVQ: 
Division was unsuccessful because the 
magnitude of dividend is too large and, 
consequently, R( AC) will overflow. 

The contents of R(MQ) and R(AC) are not changed 
if DF is set to 1 . 

7. Number: 

Representation: Signed 2's complement 

Width: Dividend: 32 bits 

Divisor, Quotient, Remainder: 16 bits 

Range: Dividend (absolute): 

COOOOOOl <numberi5 <400007FFF 
-1073741823 < number JO < 1073774591 
Divisor, Remainder, Quotient: 
8000 < number 16 <7FFF 
-32768 < number jQ < 32767 

8. Time: 

CLOCK RATE: 2 MHz 6.4 MHz 
Best 
Worst 

Best 



CDP1801 



CDPi802 



13.38 - ms 

15.76 - ms 

4.496 1,405 ms 

Worst 5.856 1.830 ms 
9. Length: 

Tlie numbers indicated here are the lengths of each 
entry of the divide subroutine. Tlius, the actual 
length of the subroutine should be the sum of the 
entries that are used. 

CDP1801 CDP1802 

version version 
DIVOP 4 4 bytes 

DIVO 20 18 bytes 

DIV 170 168 bytes 

DIVQ 173 114 bytes 



Detailed Description of Subroutines 
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10. Example 1 : 

(code] . . assume M(DIVR) = X'0003' 
. . assume R(AC) = X'OOOA' 
. . enter DIVOP, DIVO. DIVQ 

SEP CALL 

,A(DIVOP) . . followed by DIVO, DiVQ 

,A(DIVR) . . address of divisor 

[code] . . (R(MQ); R(AC)] is now 00010003 

. . where remainder = 0001 

. . and quolient = 0003 

. . with DF = 0 



Example 2: 

[code] . . assume M(DVSR) = X'0002' 
[code] . . and [R(MQ); R(AC)] = 00500001 
. . enter DIVOP, DIV, DIVQ 

SEP CALL 

,A(DIVOP) . . followed by DIV, DIVQ 

,A(DVSR) . . address of divisor 

[code] . . DF = 1 since [R{MQ); R(AC)] 
..(■= 00500001) divided by 
. . 0002 would result in 
. . overflow of AC (Quotient 
. . is too large to be able to 
. . store in 1 6 bits) 



7FFF FFFE 

4000 7FFF 
3FFF FFFE 
3FFF7FFD 
3FFE FFFC 

0000 8000 . 




FFFF aOOl 



C001 8001 



8001 



COOO 0001 ' ■ 



80OO 0000 




8000^ 



Diuisor =^ 0 ■ 



- 7FFF FFFF 



■ 3FFF7FFF 
3FFE FFFF 



0000 7FFF 




8000 



C001 0004 

COOO 8003 
COOO 0002 

SOOO 0000 



DIVISOR 



7FFF 
92CS -260B5 



Shaded area indicates divisible numbers. 
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1. Subroutine: CBD 

2. Function: 

CBD converts the signed 2's complement number in 
R(AC) to binary-coded-decimal (BCD) numbers. The 
address for the storing is a two-byte hex number 
passed from the calling program. The number of 
digits (including sign) of this BCD number is a one- 
byte hexadecimal number passed also from the call- 
ing program to CBD. On return, the BCD result is 
stored in a sequence such that the sign of the BCD 
numbers is followed for (he CDP1801 version by 
the least significant digit, followed by the second 
least significant digit, and for the CDP1802 version, 
by the most significant digit, followed by the second 
most significant digit, etc. 

3. Calling Procedure: 
SEP CALL 



,A(CBD) 
,A(BCD) 

,#nn 



. . address for BCD result 
. . where nn is a one-byte 
. . constant In hex to indicate 
. . the maximum number of 
. . digits for result (including 
sign). 

4. Registers Used: 

R(LINK). R(AR), RfNR). R(AC). R(MA). 

5. Other Subroutines Used: 

SDCON 
DZS 

PUSHAC 
DIVQ 



For CDP1801 version only. 



6. On Return: 

DF = 0 means conversion was successful. 

DF = I means the number of digits of BCD (and 
sign) is larger than the length argument 
passed from the calling program. (Overflowed!) 

7. Number: 

Representation: Signed 2's complement R(AC). 
Width: R(AC): 16 bits 

BCD: 2 < length < 6 
Range: 8000< AC<7FFF 

-32768 < BCD < 32767 
Sign of BCD: #0B = + 

#0D = - 

8. Time: 
CLOCK RATE: 

Best 
Worst 
Best 



CDP180I 



CDP1802 
9. Length: 



Worst 



2 MHz 

15.36 
73.48 
4.37 
9.27 



6.4 MHz 



CDPI80I 
version* 
339 



1.366 
2.897 

CDP1802 
version 
83 



ms 
ms 
ms 
ms 



bytes 



♦Including secondary subroutines. 
10. Example: 



SEP CALL 
,A(CBD) 
.A(RSLT) . 
MS 



assume AC = FFEO —32 j q 

assume BCD is to be stored in memory 
starting at address A(RSLT). 



address of BCD to be stored 

only three digit locations will be used. 
The last two locations will be 
cleared to zeros. 

, the BCD number will be stored in 
memory pointed to 
by R{AR). 



For the CDP1801 version, the above conversion will 
produce the following: 



R(AR) --RSLT M(RSLT) M{RSLT+1 ) M(RSLT+2) M(RSLT+3) M(RSLT+4) 



t 


OD 


02 


03 


00 


00 




SIGN 




IQl 


10^ 


103 



= -32 



10 



5 bytes in length 

For the CDPl 802 version, the above conversion will 
produce the following: 



R(AR) =RSLT M(RSLT) M(RSLT+1) M(RSLT+2) M(RSLT+3) M(RSLT+4) 
^ 



OD 


00 


00 


03 


02 


SIGN 


103 


102 


lOl 


lOO 



= -32 



10 



5 bytes in length 



Detailed Description of Subroutines 
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1. Subroutine: CDB 

2. Function: 

CDB converts the binary-coded-decimal (BCD) 
number stored in memory, whose address is passed 
from the calling program, into a signed 2's comple- 
ment number and stores it in R(AC). The length 
of the BCD number, i.e., the number of digits and 
the sign, is a one-byte argument that is also passed 
from the caUing program. The BCD number should 
be stored in memory in a sequence such that the 
first byte is the sign and, for the CDPl 801 , the second 
byte is the least significant digit, the third byte is the 
second least significant digit, etc.; for the CDP1802, 
the second byte is the most significant digit, the third 
byte is the second most significant digit, etc. 

The sign of this BCD number is represented by 
#0B(+) and #0D(-). 

3. Calling Procedure: 
SEP CALL 



,A(CDB) 
,A(BCD number) 
,#nn 



4. Registers Used: 

R(L1NK), R(AR), R(NR), R(AC). 



. address of the BCD number 
. length of the BCD, includes 
. sign. 



For CDPI801 version only. 



5. Other Subroutines Used: 
PUSHAC 

LODCON 
STORE 
ADDST 
SDCON 
MPY 

6. On Return: 

DF = 0 means conversion was successfuL 
DF = 1 means conversion failed because the BCD 
number is either too large or too small to 
be representabie as a signed 1 6-bit 2's com- 
plement number. 

7. Number; 

Representation: Signed 2's complemenl R(AC). 
Width: R(AC): 16 bits 

BCD: 2 < length < 6 
Range: 8000 < R(AC) < 7FFF 

-32768 < BCD < 32767 

8. Time: 

CLOCK RATE: 

Best 



CDPl 80 1 

. CDPl 802 
9. Length: 



Worst 

Best 

Worst 



2 MHz 
5.84 
29.24 

0.3J 
2.67 



CDPi80l 
version* 
342 



6.4 MHz 



0,097 
0.834 

CDPl 802 
version 
107 



ms 
ms 
ms 
ms 



bytes 



*lncluding secondary subroutines. 

10. Example: 

. . assume the BCD number, +1536, is to be 

. . converted to signed 2's complement number 
. . and the BCD is stored in the memory as 



M(BCD) M(BCD+1 ) M(BCD+2) M(R(I)+,5| M(H(!)+I) 



OB 



X6 



X3 



SIGN iqO io' 
for the CDPI801 version, or 



X5 



10- 



X! 



10-^ 



= 153610 



M(BrD) M(BCD+1) M(BrD+2) M{BCD+3) M(BCD+4) 



OB 
SIGN 



XI 

I0-' 



X5 

10^ 



X3 
lOl 



X6 
lOO 



= 153610 



for the CDPl 802 version. 

where X is ignored by CDB. i.e., the BCD digits 
can be stored as ASCII numbers. 

SEP CALL 
.A(CDB) 

,A(BCD) . . address of BCD 

,#05 , . 4 digits + sign = length of BCD 

, . R(AC)now contains 0600i5(= 1536]o) 
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1. Subroutine: PUSHAC 

2. Function: 

This subroutine pushes the content of R{AC) onto 
slack with R(AC).l on the top and R(AC).0 at the 
bottom. Upon returning, R(MA) is left pointing to 
R(AC).l (one byte below the top of the stack, i.e., 
R(MA)=:R(SP)+1). 

3. Calling Procedure: 
SEP CALL 
,A(PUSHAC) 

4. Registers Used: 

R(MA), R(AC), R(SP), 

5. Other Subroutine Used; 
None 

6. On Return: 

DF is not changed by PUSHAC. 

7. Length: 

CDP1801 CDP1S02 
version version 

21 19 bytes 



1. Subroutine: POP AC 

POP 

2. Function: 

POP AC pops the top two bytes off the stack and 
stores them in R(AC).i and R(AC).0. On return, 
R(MA) is left pointing to the byte below the top 
of the stack, i.e., R(MA) = R(SP)+1. 

POP is another entry of the subroutine which pops 
two bytes off the slack without storing them in 
R(AC). 

3. Calling Procedure: 
SEP CALL 

.A(POPAC) .or POP 

4. Registers Used: 

R(MA), R(AC) for POPAC only, R(SP). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF - 0 means the top two bytes were not stored 
in R(AC). 

DF = 1 means R(AC) contains the top two bytes 
of stack. 

7. Length: 

CDP1801 CDP1802 

version version 
POPAC 29 26 bytes 

POP 25 23 bytes 



1. Subroutine: PUSHCQ 

2. Function: 

PUSHCQ pushes the contents of RCCR), R(MA), 
R(MQ) onto stack. R(MQ),1 , R(MQ).0, R(MA).l , 
R(MA).0. R(CR).l , R(CR).0 are stored from top 
to bottom accordingly, R{MA) is changed by 
PUSHCQ. 

3. Calling Procedure : 
SEP CALL 
,A(PUSHCQ) 

4. Registers Used: 

R(CR), R(MA), R(MQ), R(SP),(R(MA) is changed 
by PUSHCQ). 

5. Other Subroutme Used : 
None 

6. On Return: 

DF is not changed by PUSHCQ. 

7. Length: 

CDP1801 CDP1802 
version version 

33 28 bytes 



L Subroutine: POPCQ 

2. Function: 

POPCQ pops each of the top six byte:; cf the stack 
into R(MQ).I . R(MQ).0, R(MA).l , RtMAJ.O, 
R(CR},I , R(CR).0 in sequence. 

3. Catling Procedure: 
SEP CALL 
,A(POPCQ) 

4. Registers Used: 

R(MQ), R(MA), R(CR), R(SP). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF is not changed by POPCQ. 

7. Length: 

CDP180I CDPi802 
version version 

32 30 bytes 



Detailed Description of Subroutines 
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1. Subroutine: LOADOP 

LOAD 

2. Function: 

LOADOP and LOAD are entries to a subroutine 
that load the contents of memory (two bytes), 
whose high order byte is pointed to by R{MA). 
into R(AC). R(MA) is incremented twice by LOAD. 

LOADOP fetches the address of the operand and 
stores it into R(MA) and then does a LOAD. 

LOAD assumes R(MA) is pointing to operand. 

3. Calling Procedure: 

, . enter from LOADOP 

SEP CALL 
,A( LOADOP) 

,A(OPR) . . Load M(OPR)and M(0PR+1) 



into R(AC) 
. enter from LOAD 



SEP CALL 
,A(LOAD) 



. . Load MIR(MA)1 and M[R(MA+I)] 
into R(AC) 

4. Registers Used: 

R(L!NK) for LOADOP only, R(MA), R(AC). 

5. Other Subroutines Used: 

LOADOP: should be followed by LOAD. 
LOAD: none. 

6. On lUtum: 

DF is not changed by LOADOP or LOAD. 

7. Length: 



LOADOP: 
LOAD: 

8. Example: 



CDP1801 

vei'sii)n 

5 



CDP1803 

version 
9 
5 



bytes 
bytes 



. assume M(0PRJ contains X'AB' 
. assume M(0PR+1 ) contains X'CD' 



SHP CALL 
.A( LOADOP) 
,A(OPR) 



addresser ABCD 
. . R(AC) now contains ABCD 
. . R(MA) contains A(0PR+2) 



1. Subroutine: 

2. Function: 

LODCON loads ihe two-byte constant followin; 
the subroutine call into register AC. 

3. Caihng Procedure: 
S£P CALL 

,A( LODCON) 

.X'nnnn' . . the constant 
[code] 

4. Registers Used: 
R(LiNK). R(AC). 

5. Other Subroutine Used : 
None 

6. On Return: 

DF is not changed by LODCON. 

7. Length: 

CDP1801 CDP1802 
version version 

5 .5 bytes 
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1. Subroutine: STOROP 

STORE 

2. Function: 

STOROP ynd STORE ure entries of a .subroLiline 
which stores the conients of R(AC) into the mem- 
ory locations pointed to by R{MA). On return. 
R(MA) is pointing to the next 1 (vbit word. i.e.. 
R(MA) is incremented twice. 

STOROP fetches the address of the operand and 

stores it into R(MA). It then does a STORE. 

STORE assumes R(MA) contains the address of 
the operand. 

3. Calling Procedure: 

, . U) enter from STOROP 

SEP CALL 
.A(STOROP) 

,A(OPR) . . address of operand 

[code] . . R(MA) is now A(OPR)+#02 

. . to enter from STORE 

SEP CALL 
.AfSTORE) 

. . R(MA) is now A(OPR)+#02 

4. Registers Used: 

RfMA). R(AC), R(LINK) for STOROP only. 

5. Other Subroutines Used: 

STOROP: should be followed in memory by STORE. 
STORE: none. 

6. On Return: 

DF is not changed by STORE or STOROP. 

7. Length: 

CDP180] CDP1802 

version version 
STOROP: 11 11 bytes 

STORE: 7 7 bytes 



1. Subroutine: COMPOP 

COMP 

2. Function: 

COMPOP and COMP are entries to a subroutine 
that compares R(AC) and the two-byte contents 
of memory pointed to by R(MA). DF is set to 1 
if R(AC) is greater than or equal to the contents 
of memory. 

COMPOP fetches the operand address and stores 
it into R(MA). It then does a COMP. 

COMP assumes RfMA) is pointing to the operand. 

3. Calling Procedure: 

. . enter from COMPOP 

SEP CALL 
,A(COMPOP) 

,A(OPR) . . address of operand 
. . enter from COMP 

SEP CALL 

,A(COMP) , . do comparison 

4. Registers Used ; 

R(AC), RfMA), R(LINK) for COMPOP only. 

5. Other Subroutines Used: 

COMPOP: should be followed in memory by COMP. 
COMP: none. 

6. On Return: 

DF = 0 means R(AC) < M(MA). 
DF - I means RCAC > M(MA). 

7. Number: 

Representation: Signed 2's complement 

Width: 16 bits 

Range: 8000 < number ^ 7FFF 

-32768 < numberio < 32767 

8. Length: 

CDPI80J CDP1802 

version version 
COMPOP: 22 22 bytes 

COMP: 18 18 bytes 

9. Example: 

. .a.ssume R(AC) - 000 1 : 
. . M(OPR> contains X'FFFF' 

SEP CALL 
,A(COMPOP) 

,A(OPR) . , address for comparison 

. , DF is set to f since 
. .0001 >FFFF(=-1) 
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!. Subroutine: TEST 

2. Function: 

TEST tests if R{AC) is equal to zero. If so, TEST 
returns to the 3rd byte immediately following the 

SEP call of TEST in the calHng program. If R(AC) 
is not zero, TEST returns to the 5th byte following 
the SEP call of TEST in the calling program. 

DF is set to 1 if AC is negative. 

3. Calling Procedure: 
SEP CALL 

.AfTEST) 

BR ZEROL . . TEST returns here 

if AC = 0. 

[non-zero exit] . . TEST returns here 
if AC^O. 

4. Registers Used: 
R(LiNKj. R(AC). 

5. Other Subroutine Used : 

None 

6. On Return: 

DF = 0 means number in R(AC) is positive. 
DF = I means number in R( AC) is negative. 

7. Length: 

CDPlSOl CDP1802 
version version 

11 10 bytes 



!. Subroutine: SWAPAQ 

2. Function: 

This subroutine excliuiiges the contents of R(AC} 
and R(MQ). R(CR).0 is used as a scratch regislei . 

3. Calling Procedure: 
SEP CALL 
.A(SWAPAQ) 

4. Registers Used ; 
R(CR). R(MA), R(AC). 

5. Other Subroutine Used: 
None 

6. On Return: 

DF is not changed by SWAPAQ. 

7. Length: 

CDPIKOI CDP1802 
version version 

13 13 bytes 
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Call and Return Technique 



I. CDP1801 Version: II. CDP1802 Version: 



A. Subroutine CALL: A. Subroutine CALL: 



CALLR: 


SEP R3 


to subroutine . . . 


CALLR: 


SEP R3 


to subroutine . . , 


CALLS: 


GHI R6 


save R6 on stack. 


CALLS: 


SEX R2 


point to ^^rack 




STR R2 






GHI R6 


save Kb on btack. 




DEC R2 






STXD 






GLO R6 






GLO R6 






STR R2 






STXD 






DEC R2 






GHI R3 


save R3 in R6. 




GHI R3 


save R3 in R6. 




PHI R6 






PHi R6 






GLO R3 






GL0R3 






PLO R6 \ 






PL0R6 






LDA R6 


set subroutine address 




LDA R6 


set subroutine address 




PHI R3 


in R3. 




PHI R3 


in R3. 




LDA R6 






LDA R6 






PLO R3 






PL0R3 






BR CALLR 


jump to subroutine. 




BR CALLR . . 


jump to subroutine. 


B. Subroutine RETURN 


B. Subroutine RETURN 


: 


RETR: 


SEP R3 


return to main . . . 


RETR: 


SEP R3 


return to main 


RET: 


GHI R6 


restore return address 


RET: 


GHI R6 


restore return address 




PHI R3 


into R3. 




PHI R? 


into R3. 




GLO R6 






GLO R6 






PLO R3 






FLO R3 






SEX R2 


restore old R6 saved 




INC R2 


restore old R6 saved on stack 




INC R2 


on stack into R6. 




LDA R2 


into R6 




LDXA 






PLO R6 






PLO R6 






LDA R2 






LDX 






PHI R6 






PHI R6 






DECR2 






BR RETR 


return. 




BR RETR 


return. 
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Appendix B(l) - 

Arithmetic Subroutine 
Listing for CDP1801 



nooo 


1 


0001 


. . . . COPYRIGHT 1975 RfA CORPORATION .... 


0000 


1 


000? 




0000 


1 


0003 


ORG **0400 


oano 


t 


0004 


COSMAC ARITHMETIC SUBROUTINE PACKAGE 


OttOO 


1 


0005 


• • 


OUOO 


1 


0006 


EXTRACTED FOR BINARY ARITHMETIC 


OtiOO 


1 


0007 


AND CONVERSIONS FOR DECIMAL 


r.uoo 


1 


ooon 


OCCUPIES IK BYTES 






0009 


• • 




1 


noi 0 






t 


0011 


.. DESIGNED FOR STANDARD C5DP SUBROUTINE CALLARF 


nuon 


: 


0012 




n uni^ 


I 


noi:^ 


FOR STANDARD LINKAGE* 


0400 


1 


0014 


SP= no?. ...IT SHOULD BE TH? STACK POINTFR. 


Oi;on 


1 


0015 


»C= *t03 ...IT IS THE PROGRAM COUNTER 


nuon 


1 


001ft 


IJSED BY THESE SUBROi)TIMFS. 


ouon 




0017 


CALL= «fl4 ...IT SHOULD POINT TO THE ROUTINE 


ouoo 


1 


oniR 


.. WHICH FFFFCTS SURROUTINF CALL'^. 


nunn 


1 


001 o 


RFTN= H05 ...IT <^HOULn POINT TO THF ROUTINE 


puon 


' 


on?o 


WHTrH FFFFCTS SIJRRONTINF RPTijRN, 




1 


0021 


LINKS «n6 ...IT SHOULD POINT TO CALL PARAMETpR 


0400 




00?3 


(USUALLY OPERAND ADDRESSES AND/OR CONSTANT 


0400 


* 


0023 


. a 


ounn 




O0?4 


. . 


r.uon 




no?5 


THE FOLLOWING RFSI5TERS MUST RF ASSIGNEn 


ounn 




0026 


ARE «0A ..{USED FOR RESULT ADDRESS) 


0400 




0027 




Ouno 




on?n 


rjRs WPB ,.(ll<^Fn FOP RFSIILT DIGIT COUNT) 


Ai+nn 


I 


(^02Q 


.. 16-RIT niNAPY ARITHMETIC ROUTINES. 


0400 


t 


0030 


.. THE FOLLOWING REGISTERS MUST RF ASSISNFD 


Ouno 


1 


0031 


AC= ttOF 16-RlT ACCUMULATORrRF, 


0400 


1 


0032 


MQ= WOE .. 36-RlT ACrUMULATORaRE 'EXTENSION. 


0400 


t 


0033 


MA= ttOD (TEMPORsRDARY) OPERAND MEMORY ADDRESS. 


0400 


1 


0034 


CR= nt)C .. (TEMPORARY) SCRATCHPAD AND COUNTER. 


n/ioo 


I 


00:^"=; 


. . 




1 


0036 


ORG *+«0P ..FOR PAGE BOUNDARY 


OtJOP 


1 


0037 


■ . 






003fl 


.. SWAO AC WITH MQ REGISTERS 


040fl 




003P 


SWAPAQ) GHI MQ SAVE MQ.l 


D40P 


An 


0040 


PLO CR .. IN CR.O (COULD HaVF PUSHED ON STAC 


:»4o/y 


QFl 


0041 


GHI AC NOW AC.1 TO MQ.l 


r»40R 


RFI 


004? 


PHI MQ 


liinr 


pr 1 


0043 


GLO MQ . . SAVE MQ.O 


"lunn 


Rr I 


0044 


PHI AC IN AC.l 






0045 


GLO AC ,. THEN AC.O TO MQ.O 


34r'F 


AFI 


0046 


PLO MQ 


3410 


QFl 


0047 


GHI AC .. NOW ^AVFD MQ.O TO AC.O 


D41 1 


AFI 


n048 


PLO AC 


341? 


Pri 


004Q 


GLO CR FINALLY SAVED MQ.l 


3413 


RFI 


0050 


PHI AC TO AC.l 


3414 


r>Ri 


0051 


SEP RETN 


3415 


1 


n052 


.. 1 6-RlT SUBTRACT AC FROM CONSTANT 


341S 


I 


0053 


****AC= CONSTANT-AC 


141 B 


! 


P054 


************ (TO CALL? WRITE) ***«3fc****«* 


)41"^ 


( 


0055 


****CALL SOCON 1 f CONSTANT 


3415 


Bfil 


0056 


SDCON! GLO LINK .. (ESSENTIALLY SAME AS ADCON) 


3416 


Am 


0057 


PLO MA 
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pfi » 






GHI LINK 






005P 




PHI MA 


Oifl Q 


161 


n06O 




TMr LI NK 


0U1 A 


1 ft s 


u ^-J o J 






ii 1 n 




^ , i.J n ^. 






041 n 


! 


nn63 






ouin 


( 


n064 




16-RIT SUBTRACT AC FROM OPfRAND 


ouin 


t 


ones 




***«ACsOPRt}-'Ar 




1 


0066 




(TO CALLv WRITE) *********** 


omn 


( 


0 067 




****rALL SHOP 1 fA(OPRN) 


ooin 


! 


r!n6fl 






nm n 


1 


n06P 




>t LDA LINK FFTfH OPERAND ADDRESS 




RO S 


no?" 




PHI MA , . TO MA RFGISTFR 




U6» 


nf)71 




LHA LINK 


n ii ? n 


ADI 


"079 




PLC FALL INTO SD 




1 






16-PlT SIWT»ACT AC FROM OPPRAND 




r 


nOTu 




CALL HFBE IF OPERAND 




I 


007!^ 




AHDRF^S IN RFGTSTFR MA 




t 


nn76 




. . ****AC=M(R (Ma ) )-AC 


nu?i 




0DT7 




(TO CALL* WRITE) *«**«**«*4c* 


Oil? 5 


! 


nn7B 




*«**rALL SD 


nupi 


! 


n 07Q 








BT} » 


OORO 




^FX Ma . ^PT X PTR TO Ma 




PFl 


OOfll 




GHI AC ..CHECK ZIGH RlT OF Ar 




P3i 












IJ n . ' 




A^'T BflO Brcill T A 1 TF f=iTEP 

Jjr.i H i^r ?^UL' n i In rJJn" 






■ ' 1./ n 






nup7 


in 1 


< r 1 i n n 




TKir Ma PrtTMT TO 1 rtW fl 




RF t 


n nfl6 






0 M.?Q 


FR t 






. ^IIRTPArT FROM 1 ft TM MCMftPV 


Hit? A 


AF J 


OORfl 




P'LO AC , . PUT IT RACK 




?n [ 


noflcj 




DEC MA NOW HIGH R 


oupr 


QF! 


OOQO 




GHI AC 


ni*?n 




OOoi 




RDF "^DMB .. (NO BORROW) 




Fcm 1 


OflO? 




ADI ttO) PROPAGATE LOW fl RORROW 




303 Pit 


00Q3 




RNF %nm 




FU t 


nnou 




AOn SECOND RORROW) FORCE RORROW OUT 




3«i 






.^38 AND SKIP OVER REGULAR SUBTRACT 




F«il 


0006 


SnNR! ^URTRACT HIGH 8 




RFI 


0007 




PHI AC PUT IT RACK 


OUST 


UPt 


OOon 




LDA SP ..LOAD STORED COMPARING BIT OF OPERANDS 


0il3ft 


?.Pt 


nnqq 




nrC SP ..RESET STACK POINTER 


ot*:5Q 




ntno 




PZ SDFF ,.IF OPERAND'S SIGNS ARE SAME 




QFr 


0101 




GHI AC ..NO OVERFLOW POSSIBLE 




F"^l 


01 n? 




XOR OTHER WISE CHECK PESULT 




FfAO 1 


n 103 


SDFFI 


ADI tJBO ..SET DF = 0 IF OK 


n u:^F 


1 


n 1 nu 




SEP RETN ..RFTMRN 




I 


OlOB 




• ■ 


ouan 


t 


■ * J u o 




.. 16-BIT SUBTRACT FROM AC (ADDRESS IN CALL) 




1 






. . ****ACeAC-OPRN 




t 


01. OR 




.« (TO CALL* WRITE) 




t 


OlOP 




****CALL SHOP 1 »A(OPRN) 




( 


0110 








46 J 


01 11 


5M0F 


Tlda LINK 




pn i 


nil? 




PHI MA 




46 ) 


0M3 




LDA LINK 


0UU3 


AD I 


OJ lU 




PLO MA 




t 


OUR 




.. 16-RlT SI.IRTRACT FROM AC (ADDRESS IN MA) 
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r1 f 1 /I f 1 


i 


Alii 
0116 




• a CALL MERii Ir yPcKAlND 


0 iitiil- 


1 


0117 




• . ADDRESS IN REGISTER MA 


t\ ll li fi 

■ ■ U 4 1- 


1 


n 1 1 8 




• « **** ac3Ar™f^ I R [ Ma > 1 


A f 1 tm ft 


1 


A 4 4 




• • ♦♦•********* ( TO CALL* WRI Tt J *•♦•**•**** 


n ll ti ll 


1 


01 ?n 






QUUU 


t 


01 21 




■ ■ 




rn 1 


01?2 


SM! 


SEX Ma , bSFT X PTR 


OUUS 


OF I 


01 ?3 




GHI AC • . GET SIGN OF AC AND 


0 4^6 


FftI 


01 ?a 




SHR a e AND STORE IN 7TH RIT OF CR 


0i4U7 


'^P J 


n ! ?5 




STR SP ..PMT PUT IN (SP) FIRST 


04UA 


OF 1 


n i?6 




GHI AC ..AND SEE IP OPERANDS SIGNS ARE THE 


0^40 


F3» 


0 1 ?7 




XOR 


0 44 A 


F ABO t 


0 1 ? A 




AN I wnU » . T AKt OIJT fOMP AR I ^Ib SIGN PIT 


A ll fi A 


E? 1 


Q 1 (r4 




^Ca Sr* ■.r^UW blURc TMAT nil IN oin UF CR 


n ll ll n 

U HM-D 




1.' J .^ii 






0 UtlW 




01 31 




STR SP -AND STORE THESE TWO RIT^ n*^] ^TArK 






n 1 "^9 

■ ■ I 




TWr Ma DrtTMT TO 1 flW A 


L ** ^ ♦ ' 










n ut^i 


AF > 


01 34 




GLO AC . » FETCH AC LOW 8 


0 4*1 




0 1 3Fi 




SM . SURTRACT MEMORY FROM IT 




AIT 1 


0 1 

■J 1 JO 




PI n Ar 0| IT TT RArK 


n ll Ell 




U .1 J r 








ntr t 
1 


n 1 To 




GHI AC 


n ll K£. 




If i 




RDF SMNR 


A ll C O 


F F u 1 1 


n 4 ll A 




SMI ttOI PROPAGATE RORROW OP LOW 8 




^ T t P • 


n 4 ii 1 




RDF SMNR 




F3 I 


014? 




XOR SECOND RORROW! FORCE BORROW OUT* 




3fll 


0143 




*tt3fl WHILE SNRTRACTING HIGH 8. 


04SE 


F7» 


0144 


SMNR! SM HIGH 8 S'JRTRACTf NO RORROW ACROSS. 


^UiSF 


RFl 


0145 




PHI AC PUT HIGH B BACK 


0460 


E?i 


0146 




SEX SP ..NOW CHECK IP UNDERFLOWED 


0461 


FOi 


01 47 




LDX ..LOAD THE STORED TWO RITS 


046? 


FARO 1 


n I ufl 




ANl BRO ..AND TAKE OUT THE COMPARING SIGN Rl 


Oti64 


3?6RI 






RZ SMI ..THE 5AME» i.tNDERFLOW NOT POSSIBLE 


01466 OF» 






GHI AC ..OTHERWISE HAVE TO COMPARE SIGN OF 


, SI fl. T 
04-67 F6I 


0 1 SI 




SHR . .WITH SIGN, OF AC 


046fl 


F3» 


'J I H 




XOR ..SIGN RIT OF AC WAS STORED ON STACK 


0460 


FA40 1 


■I 1 DJ 




ANI tt40 ..TAKE OUT THAT 7TH RIT 


(?46B 


F6I 




SMI! 


SHR ..SET DF=0 IF OK 


046C 


3?70t 


0 1 




RZ SMPT ..THE SAME. IT»5 OK 


046F 


FFOO) 


n 1 e;c, 

u J ~ r> 




SMI »no ..OTHERWISE SET DF=1 


0U7n 


n^i 


M 1 ~ f 


SMRTt SEP RETN ..RETURN WITH bE=NO RORROW 


0471 


1 


U 1 Or* 




. . 


0471 


t 


n 1 

u 1 n** 






0471 








..16X16 RIT SIGNED MULTIPLY(2»S COMPLEMENT) 


0471 


I 






..♦***AC=AC*OPRN 


0471 


t 


n 1 AO 




,,************! TO CALL» WRITE)************ 


0471 


1 


n J oo 




. .*****CALL MPYOP I . A (Oi^RN) 


0471 


I 


n 1 All 




. « 


0471 


a6 1 




MPYOP! LDA LINK ..FETCH MULTIPLICAND ADDRS 


0 47? 


RDI 


0166 




PHI MA ..INTO REGISTER A 


01*73 


461 


0167 




LDA LINK 


0474 


ADl 


C16P, 




PLO MA ..FALL INTO MPY 


0475 


1 


0169 




16X16 BIT SIGNED MijLTlPLY (2'S COMPLEMENT 


047R 


1 


0170 




.. CALL HERE IF OPERAND ADDRESS 


047« 


I 


0171 




IM REGISTER MA 



30 Binary Arithmetic Subroutines for RCA COSMAC Microprocessors 







D 1 72 




, , AC=AC*M I R ( ^1A) ) 


0 475 


1 


0173 




(TO CALL* WRTTF) *********** 




1 


01 74 




., ****CALL MPY 


0475 


t 


01 75 




• • 


0 475 


FH t 


ni76 


MPY 


! SFX MA SFT X NOW 


047^1 


PF 1 


0177 




GHI AC ..CHECK IS THE SIGN OF MULTIcaNd 


0477 


F3 t 


0178 




XOR ,.THF SAME AS THE SIGN OF MlJLTlPR 


047fl 


FftRH I 


017<3 




ANI tt80 ..AND STORE THAT RIT 


047A 


Rr I 


ni RO 




PHI C» ..INTO CR.l 


n47R 


Fpi n 1 


ni Pi 




LDI ttlO SET COUNTER TO 16 


0470 


AC I 


ni8? 




PLO CR 


047F 


FROO J 


niP3 




LDI «00 INITIALIZF MO TO 0 


04fln 


RFI 


01 84 




^HI MQ .,, TO HOLD PRODUCT, 




AFt 


0185 




PLO MQ 


n4R? 


^Ct 


0186 




DEC CR ..IF NOT* DECREMENT IT. 


n4R.'x 


QF 1 


0187 




GHI AC SHIFT AC (=MltLTlPLlFR 1 RIGHT 


04P4 




"1 R8 




SHR 


04fl5 


RFl 


01 RQ 




PHI AC 


n4p6 


RF 1 


01 PO 




0LO AC 


0487 


:^RRp I 


niPi 




RNF *+tt06 


0 4RQ 


Fft I 


n J op 




SHR SHIFT 1 ACROSS PYTFS 


U 4n A 


FOflP 1 


01 03 




ORI ttPO 


D Ii O ^ 


TiR ( 


0 1 P4 




1 (138 


U 4HP 


Fft J 


"1 P5 




SHR .. SHIFT 0 ACROSS RYTES 


0 48P 


1 


0106 




PLO AC 


0 4ftF 


QP 1 


0107 




GHI MQ 


04Q0 


3RQR I 


OlPfl 




RfJF MPR ,,IF NO RiT OUTt DON'T ADD. 


0 4q2 


1 0 I 


nj p<5 




INC ^A POINT TO LOW fl OF MULTIPLICAND 


U 4°^ 




'IJOO 




GLO CR .. IF rJOT LAST ITFRATION* 


n ii oil 


T A OF ■ 


A 0 A il 

nsn 1 




RNZ MPA . , GO ADD. 


n f 1 n £ 

U U'Hn 


n u I 


A A A A 

0?n2 




?EP CALL ..CALL SURTRACT MO*{Ma) ROuTINr 


IJ M W Y 


U4nR 1 


n 0 A 

02 03 




r A (nSM ) 


0 4^10 


Fn I 


0?04 




SFX MA . .FIX X PTR 


0 U p ft 


Qf I 


0205 




GHI CP ..NOW ARF THE SIGNS OF OPERANDS THE SAME 


n4QB 


Frflo ( 


n!?06 


mpr: 


ADT ttflO ..TEST FOR SIGN SiT 


n4on 


■^OAR 1 


0?P7 




RR MPs+tl05 ..IF NEGATIVE. SIGN EXTEND 


0 4QF 


r4 J 


020P 


MPA : 


S'S'P CALL ..CALL ADD MQ 8 (MA) SUR 


04^0 


04rR 1 


o?np 




t A (DVa ) 


04A? 


rni 


0210 




SFX MA 


04A:S 


??API 


021 1 


MP^ ; 


RDF *4H05 


04A5 


FO 1 


n?i? 




LDX 


04A6 


FCRO ( 


n?i3 




ADI H80,.TF OPERAND IS NEGATIVE»THEN 


04 AR 


OF I 


021 4 




GHI MQ ..PUT MQ.1 INTO D 


04A<5 


3RAF 1 


n?15 




RNF *+fl06 ..FXTFND A 1 FOR -SIGN BIT 


0 4 ft R 


F6 1 


0216 




SHR . • SHIFT IN 1 


0 4 AC 


FPRO I 


021 7 




ORI «eo 


04AF 


3R I 


n?1 fl 




r«3S 


n 4 flF 


F6 1 


0?1P 




SHR . , SHIFT IM 0 


0 4^n 


RF 1 


i^220 




PHI MQ 


0 4R1 


RF » 


0221 




GLO MQ rONTlNUF tO LOW 8 OF MO 


0 4R? 


3RRR I 


022? 




RNF *+tt06 


n ii nil 


f- n 1 


0223 




SHR 


0 4R5 


FQRO I 


0224 




ORI tlRO 


04R7 


3R 1 


0225 




pH38 


04RB 


F6I 


0226 




SHR 


04R9 


AFI 


n227 




PLO MQ 


0 4RA 


3Rrn 1 


022P 




RNF MT .. IF NO CARRY OUT, ITERATE. 


0 4pr 


QFi 


0220 




GHI AC .. ADD CARRY OUT INTO AC M5R. 


04Rn 


FqRO 1 


0230 




ORI ttpn 



■f 
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U M-Mr 


DC f 






PUT hr 


n ll ^ n 


8r 1 


n ? 


MT" ■ 

T I 


uLU rR ..CntLr, CJUN'rR 


u '*n 


^v Py } 






□ M7 MDI TP rftllMTFO TC MOT P.RD DATK FOR MORF 


0 4C3 


QF I 


0234 


MPX 


! GH I AC ■ . r IN iSnt D t 


04r4 


FCRO ( 


0235 




ADI PRO •• CHFCK rUK '-'RUDUCI > ID Ril^a, 


0 4C6 


8FI 


1^236 




GLO MQ 


04C7 


3RCRI 


0237 




BNF * + tt04 ..THAT'S HIGH 17 RITS 


04rQ 


FRFF 1 


023R 




XRI tJFF ■• ALL 00 OR FF , 


04rR 


3AD2I 


n?3Q 




RNZ * + tl07 ., NAW. 


04rn 


QF t 


0240 




GHI MQ 


OtiTF 


3flD2 t 


0241 




RNF *+fi04 


04D0 


FRFF 1 






XRI ttFF 


0 4D2 


FCFF ; 


0243 




ADI "FF . • SET Dr 1 r PROD' !Cl > In Hlib 


04D4 


D5l 


0244 




SEP RFTN . , RETURN. 


04D5 


I 


0245 




..SURROUtINE to re INCLUDED IN Dlv»DIVQ»M°T 


0 405 


1DI 


0246 


DARS 


: INC MA ..MQ,n-(MA) 


0 4D6 


3RF8I 


0247 




RNF DVA ..IF NO FLAG» MQ,+(Mft) 


0408 


pe 1 


024P 


DSMi 


GLO MQ . .LOAD MQ.O TO D 


04no 


F7I 


024Q 




SM . .MQ.O-(MA.O) 


ntin A 


AC- 1 


0950 




PLO MQ ..AND STORE RACK INTO MQ.O 


n4DR 


2ni 


0251 




DEC MA ..DO THE 5AMF FOR MQ, 1 


0 4DC 


QFI 


0252 




GHI MQ ..LOAD MQ .1 INTO D 


0 40D 


33F5I 


0253 




RDF * + *iOft ..IF NO RQt'ROW »SKIP 


04DF 


FF01 1 


0254 




SMI ttOl ..MINUS 1 FOR BORROW Oi IT 


04^1 


33F5I 


'^255 




RDF *+tt04 ..IF MQ.l NO BORROW OUT f SKIP 


04F3 


F3l 


1^256 




XOR ., OTHERWISE ONLY DO XOR 


0 4E4 


3flt 


0257 




■ J ^ A A h 1 tf« 0 1^ T lA A X f V A ^ 1 /"Vn tiA k 1 ^11 T AAA "F T K 1 

»tt3P ..AND SKIP OVER NORMAL SUBTRACTION 


n ue^ 


F7 1 


025fl 




SM . ,M0. l-( Ma , 1) 


04F6 


30F6I 


025P 




RR DVR ..SKIP OVE'' ADD STEPS 


0 4FP 


8Ft 


0?60 


DVAI 


GLO MQ . ,MO+(Ma) 


nuEP 


FUi 


0261 




ADD . .MQ.O+tMA.O) 


04r A 


AFI 


0262 




PLO MQ ,,AND put rack INTO MQ.O 


0 4FR 


?D| 


^^263 




DEC MA ..DO THE SAME FOR MQ.l SMA.1 


0 4FC 


OF I 


"264 




GHI MQ ..LOAD MQ.l INTO D 


04rn 


3RF'^I 


0265 




RNF ♦+tt08 ..IF NO CARRY OUT»SKIP CARRY OVER 


04FF 


FC01 I 


0266 




ADl ttOI ..CARRY OVER STEP 


0 4F1 


3PF5I 


0267 




RNF *+P04 ..SKIP CARRY IF NO CARRY RESULT 


0 4F3 


F5) 


026R 




SD ..OTHERWISE IT'S 0 HERF»PUT IT RACK 


04F4 


38 1 


026Q 




»f3R ..AND SKIP NORMAL ADDITION 


04F5 


F4l 


0270 




ADD ..ADD MQ.l AND (MA.l) 


04F*^ 


RFI 


0?71 


DVR! 


PHI MO ..AND STORE INTO MQ.l 


04F7 


n^l 


0272 




SEP RETN . . 


0 4FR 


I 


0273 


■ 


. SURROiJTINE TO BE INCLUDED IN'DlVfDIVQ .... 


n4F8 


F?i 


0274 


DSHL 


: SFX 5P ..SET X TO STACK 


04FO 


PFI 


0275 




GLO MQ ..ADD MQ.O TO ITSELF 


0 4FA 


•^21 


0276 




STR SP ..CAUSE MQ.O SHIFT TO LEFT 


04Fn 


F4 I 


0277 




ADD . . 


nuFc 


API 


0278 




PLO MO ..AND STORE RACK 


04Fn 


OF I 


027Q 




A 1 1 T II J A n n V 1 J IP A A VAt9 ^ A Q LjI ^ 4 

GHI MQ . .DO THE SAME FOR MQ. 1 


04FF 


52 I 


0280 




STR SP 


04FF 


3*^03 1 


0281 




RNF *+n04 ..If" NO CARRY OUT* 5K IP CARRY OVER 


0501 


FCOl 1 


028? 




ADI pOI . ■ ADD 1 FOR CARRY OVER 


0 503 


F4 I 


0283 




ftnn ftp^h 4 ^ a T*F^I?&f^ 

ADD ..ADD MQ.l TO ITSELF 


D504 


RFl 


n?R4 




PHI MQ ,, STORE RACK 


0505 


D5I 


02fl5 




SEP RETN .. 


0506 


I 


0286 




.. 32/16 RIT SIGNED DIVIDE (2'S COMPLEMENT) 


0506 


1 


0287 




.. AC=MQ,AC/OPRN 


0506 


1 


02BR 




,. QUOTIENT IN AC r REMAINDER IN MQ 
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0506 
0506 
0506 
0506 
0507 

0 5np 

05nq 
050A 
050A 
050 A 
050^ 

050 A 
050A 
a50R 

05nr 

050F 
0510 
051? 
05tU 
0^15 
0^16 
^^517 

051 o 

05in 
05ir 
OSir 

OFnIF 
051F 
05ir 
051F 
05?0 

05?? 

05?5 
0 5?6 
05?fl 
05?A 
05?R 

0'i?r 
05?n 
n5?r 
05:^0 
05:1? 

0 5.^1* 
05.^5 
0 5.^7 
O'i^q 
0 5SR 

05:in 

053F 
053F 
05^^0 
051*? 
05t^U 



I 
I 
I 

Rni 

(+61 
AH I 
I 

I 
I 
( 

FHi 
QF t 

rrpo I 

PAOO I 

FAFF I 

RFI 

AFl 

4ni 

Fl I 

?ni 

FDOO I 

3Rir » 

n5i 

( 

I 

I 

I 

9Fl 

Rr I 

flFi 
ATf 
04 I 

nuFfli 

QF I 
F ARO I 

?i??ri 

IFI 
7RI 
PC I 
7ASm 
or I 
FRllO I 

3?:?ni 
FAro r 

FDOO I 
FrRO t 

or I 
Fni 

F3l 
FABO I 
FOOOl 



0289 

0290 

029! 

0?P2 

02O3 

02QU 

0?P5 

0296 

0?Q7 

029fl 

n299 

0300 

0301 

030? 

0303 

0300- 
0305 
0306 
0307 
030W 
0309 
0310 

03) 1 
0312 
0313 
031U 
0315 
0316 

0317 
0 31ft 
0319 
032n 

0321 

03?? 

03?3 

03?i4 

03?5 

032ft 

03?7 

03? 8 

03?Q 

0330 

0331 

0332 

0333 

033it 

0335 

0336 

0337 

033fl 

0339 

0340 

03U1 

0342 

0343 

0344 

0345 



*«««**«**««• (TO CALL* WRITE) *********** 

CALL DIVOP I rA(OPRN) 

niVOP: LDA LINK FETCH OPERAND ADDRESS 
PHI Ma TO REGISTER Ma 

LDA LINK 

PLO MA FALL INTO DI VO/DIV/DIVQ. 

32/16 RIT SIGNED DIVIDE (?»S COMPLEMENT) 
, OPTION Hi I CLEAR MQ AND CHECK FOR ZERO D 
♦***AC=M0»AC/M{R(Ma) ) 

:*«*4****«*** (TO CALL* WRITE) *********** 
****CaLL DIVO 
niVOl SEX MA SET X TO POINT TO DIVISOR (0) 
GHI AC .. LOOK AT AC SIGN (0) 
ADI «R0 COPY IT TO DF (0) 
Lnl t*nO EXTEND POO IF POSITIVE* (0) 
RNF *+tt'>4 . . (0 ) 

LDI tJFF *JFF IF NEGATIVE. (0) 



PHI 
PLO 
LDA 
09 

DEC 
SDI 



MQ 
MA 

. (0) 

MA 

ttOO . 



GIVING +n OR -0 IN MQ (n) 
(0) 

CHECK FOR ZFRO DIVISOR 



(0) 



(DON»T FORGET TO FIX POINTER) (0) 
IF ZERO* CALL IT DIVIDE CHECK(O) 



DIVt 



D7! 



n? 



04; 



RNF DIV .,60 ON IF NO DIVIDE CHECK ERR 

SEP RETN ..AND RETURN WITH DF=1 (0) 

... OPTION H2: PERMIT 32-nlT OIVlOENDl (/) 

... MAKE SURE QIIOTIENT DOES NOT EXCEED 16 BITS(/) 

**«**«****«« (TO CALL. WRITE) *********** 
. ,****** CALL DiV 

GHI MQ ..SAVE PARTIAL OIVIDEND(/) 
PHI CR ..INTO CR.K/) 
GLO MQ . , (/) 
PLO CR ..AND C».0(/) 

SEP CALL ..CALL SHIFT LEFT ROUTINE (/) 
»A(DSHL) ..(/) 

GHI AC ..ALSO SHIFT HIGH OP AC(/) 
ANI HftO ..(WHICH IS THE 16TH nlT)(/) 
RZ D7 ..RUT IF 0»SKIP SHIFT(/) 
INC MQ ..IF 1» SHIFT INTO MQ(/) 
»tt3fl ...(/) 

GLO CR ..SEE IF MQ.O =n(/) 
RNZ D2 ..IF MOT GO THROUGH CHECKING STEPS (/) 
GHI CR ..SEE IE MQ.i tt40(/) 
XRI ti4n ..WHICH <;H0ULD RESULT 0 IF TRUE(/) 
RZ D4 ..if TRUF^SKIP NORMAL CHECKING*/) 

SHI CR ..CHECK IF HIGH ? RITS OF MQ ARE THE SAMr(/) 
ANI acO ..TAKE OUT 2 HIGH BITS(/) 
SDI WOO ..SEE IF THEY ARE THE SAME*/) 
ADI fflO ,,IF NOTtHiGH RiT IS 1(/) 
RDF DVXX ..SET DF AND RETURN(/) 

GHI CR ..LOOK AT THE SIGNS OF DIVND AND nIVSRf/) 
SEX MA ..POINT X TO DIV^R(/1 
XOR ..(/) 

ANI tJflO ..IF DIFFERENT, RESULT flO(/) 

SDI ttOO ..SET OF IF SaME(/) 

SEP CALL ..CALL ABS(MQ-(MA)) SURt/) 
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0545 


04D5 1 


0346 




, A (DABS) 


.. (/) 


0547 


EDi 


0347 




SEX 


MA 


..SET X TO DIVSORf/) 


054P 


QC 1 


034ft 




GHI 


CR 


.LOOK AT THE SIGN OF DIVIND(/) 


0 54Q 


FCftO 1 


0349 




ADI 


HRO 


..DF=1 IF DIVND IS NEG(/) 


05iiR 


3R5r 1 


0350 




PMF 


DV2 


..IF NOT. DONIT COMPLMENT DIFFERENCE (/ ) 


054n 


9El 


0351 




GHI 


MQ . 


.COMPLEMENT MQ.K/) 


054P 


FDOO 1 


0352 




sni 


ttOO 


..RY SUBTRACTING FROM P(/) 


0 5*^0 


REI 


0353 




PHI 


WQ 


..STORE RACK INTO MQ.l(/) 


0551 


ftEl 


0354 




GLO 


MQ . 


.DO THE SAME FOR MQ.n(/) 


055? 


3?5CI 


0355 




RZ 


DV? 


..RUT IF 0»NO NEED T0(/) 


055a 


OF; 


0356 




GHI 


MO , 


. (/) 


0 555 


FFOl I 


0357 




SMI 


ttni 


..OTHERWISE DO BORROW FROM MQ.1(/) 


0557 


BE 1 


035A 




PHI 


MQ , 


. (/) 




RE 1 


035P 




GLO 


MO , 


.DO COMPLMENTaTION FOR MQ.n(/} 




F nnn t 


11.^6(1 




SDI 


ttno 


..RY SUBTRACTING FROM 0(/l 




A F t 


A T £ 4 




PLO 


MQ , 


.AND PUT BACK INTO MQ.O{/) 


0*^5C 


QF t 








GHI MQ ..NOW LOOK AT THE DIFF OF MQS(MA)(/) 


n t^^^n 


."irn^ 1 


I' ^oo 




RZ nio 


..IF 0» CHECK MQ=n SPECIAL CASES*/) 


- ' ^7>r 


P- ( Hill 






ADI 


tJflO 


..CHFCK IF MQ IS NEGATIVE*/) 




7 ^ ^ B « 


0365 




RDF 


DDQ 


..IF YES* NO PR0rLEM(/) 


0563 


3nRF 1 


0366 




RR D9 


.IF NOT 0 rjOR NEG, DIVND IS TOO LARGE*/) 


0565 


ftFl 


0367 


DIH! 


GLO MQ 


..HERE WE CHECK DIFF=0 CASES*/) 


0566 


FCFFI 


036R 




ADI 


tJFE 


..IF MQ.O Is NOT EITHER n OR 1*/) 


056R 


33C0I 


0360 




RDF 


DVXX 


..THEN DIVND IS STILL TOO LARGE*/) 


056A 


FPFFI 


0370 




XRI 


ttFF 


. .RESULT 0 IF MQ.O WAS 1 (/) 


056C 


3/* Al 1 


0371 




PNZ 


DVH 


..IF NOTf MUST BE n, GO TO DVH*/) 


0 56F 


OC 1 


0372 




GHI 


CR 


..SEE IF DIVND IS NEGATIVE*/) 


n56F 


FARO 1 


0C!73 




ANT 


«80 


..RESULT BO IF YES*/) 


0571 


32PEI 


0374 




RZ 


D9 


..IF DIVND POSlTlVEf IT CANNOT DIVIDF*/) 


0573 


F4 I 


0375 




ADD 


..^EE IF DIVISOR I^ POSITIVE!/) 


057U 


33C0I 


0376 




RDF 


DVXX 


..IF NEGATIVE* DIVND CANNOT DIVIDE*/) 


0576 


opl 


0377 




GHI 


AC 


..NOW CHECK IF AC+*Ma)>0 IF LOW AC IS A*/) 


0«i77 


FUi 


n37P 




ADD 


. .AC.l+(MA.l 


0 57ft 


RP 1 


0379 




PHI 


WQ . 


.AND STORE SUM IN MQ.i (/) 


057O 


1D 1 


03ft0 




INC 


MA 


.DO THE SAME FOR LOW AC «*MA.0){/) 


057A 


flF» 


03ftl 




GLO 


AC 


..LOAD AC.O INTO D*/) 


057R 


F4t 


0382 




ADO 


, . AC 


.0 TO *MA,0) (/) 


057C 


AFl 


03fl3 




PLO 


MQ . 


. (/) 


057D 


3RR3I 


0384 




RNF 


*+«06 


..SKIP CARRY OVER IF NO rARRY OUT*/) 


057F 


or 1 


0385 




GHI 


MO . 


.DO CARRY OVER*/) 


05ft0 


FCOl t 


03fl6 




ADI 


fOl 


..BY ADD 1 TO MQ.I (/) 


05ft? 


BE I 


0387 




PHI 


MQ . 


. (/) 


05ft 3 


pn t 


0388 




LDX 


..NOW HECK LOW BIT (MA) IS 0 OR 1 (/) 


0 5ft/i 


F6( 


0389 




SHR 


..SHIFT THAT LOW BIT OUT(/) 


05ft5 


2DI 


0390 




DEC 


MA . 


.REMEMBER TO RESET MA(/) 


05ft6 


"El 


0391 




GHI 


MQ , 


.READY TO ADD tl80(/) 


0587 


3RAC 1 


0392 




BNF 


*+tl05 


..IF LOW BIT OF AC IS 1(/) 




FCflO t 


03o3 




ADI 


PRO 


..TO MO.K/) 


0 5RP 


RE) 


03Q4 




PHI 


MQ , 


.SAVE STATUS*/) 


05ftC 


FCPO 1 


0395 




ADI 


H80 


. .SEE IF MQ >n(/) 


0 5ftE 


9C I 


0396 




GHI 


CR . 


.SEE IF DIVND IS POSITIVE*/) 


05PF 


FABOl 


0397 




ANI 


ttao 


..RY TAKING OUT THE SIGN BIT*/) 


05Q1 


3A97I 


0398 




BNZ 


*+no6 


..IF NOTrGO THROUGH DIEF CHECK*/) 
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0593 




0399 




BNF D9 ..IF AC+tMA) >=0p BAD*/) 


0595 


30C5 1 


Qi^OO 




BR DOQ ..OTHFRWISF IS 0K(/) 


0597 

059fl 


9ri 






GHI MQ , .MQ=0?(/) 


0 5QA 


3Ar5! 


Oi+03 




BDF OVXX ..IF NEGATIVE^ THFN OUT ( / ) 
BNZ DDQ . .IF N0T» THEN NO PROBLFM{/) 


0 59r 


RFI 






GLO MO ..MAKE SURE MQ.O I? 0 T00(/) 


O^PD 




0405 




R2 09 ..IF YES» THEN RETURN WITH DF=3 t/) 


059F 


30C5I 


01*06 




RR DDQ ..OR ELSE GO TO DIVIDEC/) 


05A1 


on 


Ot»07 


DVH! 


GHI CR ..SEE IF THF OPERANDS SIGNS DlFP( 




F3l 


0408 




XOR ..RY COMPARING SIGN RTTS{/) 




FARO i 


puoq 




AMI mn .«AND TAKE OUT THAT BIT(/) 




3A76I 


nuj n 




RMZ 01 0+ttll . . IF SINGS OIFF» IT»S OK (/) 




or I 


nuyi 




GHI CR . .OTHFRWISE TF^T SIGN OF DIVN0(/) 


n^SAfl 


prpo ( 






Aox wan ,,IF PO?iTivr» return with of=i (/> 


'^=^AA 








RNF 09 ..RFTURN WITH DF=1{/) 




101 


0414 




INr MA ..SEE IF LOW RIT OF Ar IS 0 OR !(/) 


05&r! 


POI 


0415 




LOX ..LOAD THAT IN 01/) 


05Ar 


POi 


0416 




OFC MA ..REMEMBER TO RESET Ma(/) 


OPAF 


Ffil 


?^417 




SHR ..SHIFT THAT BIT OUT(/) 






04? p 




GLO AC ,,IF AC IS NOT n ,NOT PR0RLEM(/) 




:^Ar5) 


n41.Q 




RNZ DOQ .,G0 TO DiVlDFi/) 




QF ( 


^4?0 




GHT AC ..REAOY TO CHECK WfiO IF LOW BIT AC IS 




33RA 1 


04?1 




RDF *+»06 (/) 




3?RP 1 


042? 




P2 09 ,,N0 GOOD* RETURN WITH DF=1(/J 




30C5I 


0423 




BR DDQ ..ANY THING ELSE IS 0K(/) 


05RA 


FBflOj 


0424 




XRI ttflO ..IF AC.l I5»NT «e0(/) 


0 5pr 


3AC5I 


n4?5 




RNZ DDQ .,IT»5 0K{/) 




FFOO 1 


04?6 


09 t 


SMI ttOO ,,DF IS SET TO 1(/) 


o^rn 


QC P 


0427 


nVXXj GHI ..PUT ORGII^JAL DIVND(/) 




RF 1 






PHI MQ ..INTO MQ(/) 




Rf J 


OU?q 




GLO CR , . (/) 


0 5C3 


AFl 


0430 




PLO MO ..(/) 




051 


0431 




SEP RETW ..AND RFTURN WITH DF=1 (/) 


n*>r5 




0432 


DOO! 


GHI CR ...PUT ORGINAL OIVNDC/) 


05r6 


RF( 


0433 




PHI MQ ..BACK INTO MQ(/) 


ORr? 


flr ) 


0434 




GLO CR (/) 




AF 1 


0435 




PLO MQ , , (/) 


05r9 


1 


0436 




... OPTION tt3t ASSUME RENIGN PROGRAM) NQCHECK 


05CO 


J 


0457 




**««**«**«4(* (TO CiLLf WRITE) *********** 


0 5r<^ 


} 


0458 




. . ****CALL DIVQ 


05C9 


QP) 


0439 


DTVQI SHI MQ ..LOOK AT DIVIDEND SIGN 


0 5rA 


Frflo 1 


0440 




ADI ttflO .. IF POSITIVEf 


D5CC 


FP90I 


0441 




LDI «90 PLAN TO BEGIN WITH SUBTRACTr 


0 5rp 


3RD?» 


044? 




BNF *+t*04 ,. (ALSO SAVE SIGN OF DIVIDEND) 


0 500 


FP.50 1 


0443 




LDI tt50 OTHER WlSF RESIN WITH ADD, 


05n? 




0444 




PLO CR SET ITERATION COUNT IN CR.O 


0Bn3 




044S 




SEP CALL ..CALL LEFT SHIFT SUB 


0 5nii 


OUFftJ 


04li6 




» A (DSHD 


0506 


RF J 


0447 




GLO AC NOW DO AC 


05O7 


5? I 






STR 5P .. 


05Dn 


rut 


044O 




ADD 


0509 




0450 




PLO AC 


050^ 


9Ft 


0451 




GHI AC 




5? J 


0452 




STR SP 


0 5DC 


3RF11} 


0453 




RNF *+ttOB 


05DF 


FCOl » 


ni^54 




ADI HOI 


05E0 


3R?i+» 


0455 




BNF * + ttf54 


05F2 


F5I 


0456 




50 DON»T LOSE CARRY OUT 


05F3 


SftI 


0457 




»«3fi 
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05E4 

05E5 
05r6 

05FR 
0 5PQ 
05FA 
05FR 
05FC 
05EF 
05FF 
05F1 
05F? 
n^F3 
0 5F4 
0SF6 
05FB 
05F9 
05FB 
05PC 
n5FF 

OftOU 
0605 
0607 
060fl 
OftOQ 
060R 
OAOr 

OAOF 
060F 
0611 
0613 

0614 
0616 
7 

Oi^t P 
061R 
061 A 
061C 
061F 
06tF 
OftPO 

06?3 
Oft?4 
06P6 
0627 
0629 
062B 

062C 

06?P 

Ofr30 
0 632 
0634 
0635 
0637 
0639 



F4I 
BFI 
3RF9I 

IF J 

FOI 

flCI 

F3I 

FCPOl 

D4I 

04D5I 

FOI 

2r I 

RC t 

FA7F I 

3RFBI 

IFI 

FQPOl 

AC I 

FA3FI 

3An3( 

3320 1 

3ft I 

IFI 

F3l 

FCflOl 

1D» 

BFI 

33161 

FU t 

AF I 

?n I 

QFI 

3P13» 

FCOl I 

F4I 

301Ft 

F7i 

AF f 

20 ( 

OF t 

331FI 

FFOll 

F7I 

BFI 

QFI 

3A?6» 

PFI 

3234; 

PC I 

FA40I 

FrcOl 

9FI 
33301 

FRROt 

FCRO I 

3R03I 

FOI 

FCflO I 

3B44I 

RFI 



0458 
0459 
046O 
0463 
0462 



BIT SHIFTED OUT OF AC 
GOES INTO MQ.O 



0464 
0465 
0466 
0467 
046fi 
0469 
1470 
0471 
047? 
^^473 
0474 
0475 
0476 
0477 

ni47Q 
04flO 
04fll 
04R2 
04fi3 
04P4 
04fl5 

n4ft6 

nUP7 
046P 
04fl9 
0490 
04Q1 
0492 
0UO5 
04O4 
04OF, 

C4Q6 
0497 
04qR 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
050fl 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 



ADD 

PHI AC 
BMP *+»n3 
INC MQ 
SFX MA .. 

GLO CR NOW, WA<; THAT ADO* OR SUBTRACT? 
XOR IT OrPENOS ON SAVED FLAG* 
ADI t»80 AND SIGN OF DIVISOR. 
SEP CALL ..CAlL A8S(MQ-(MA)) SUB 
•AtOARS) 
SFX MA 
DEC CR 



GLO CR 

ANI tt7F 

RNF *+ti05 

INC AC .. 

ORI ttBO . 

PLO CR ,. 

ANI H3F . 

R^JZ nVL . 

RDF nVR , 

OVCI INC AC . 
XOo 



COUNT DOWN ITERATION cOUNTFR 



,. TEST CARRY OUT OF AOD/SURTRACT 
IF 1. SHIFT INTO QUOTIENT! 
, AND FLAG NEXT OP AS SUBTRACT, 

OTHERWISE IT»S ADD. 
, LOOK AT COUNTER! 
, IF NOT Oj loop RACK) 
, AT FND. CHFCK RFMaINDFR ADJUST. 



(FINAL DIVIDF STEP) 
BE SURE TO GET POLARITY 
ADI PflO .. OF ADJUSTMENT RIGHT... 
INC MA YES* ADD DIVISOR BACK ONi 
GLO MQ TO CORRECT FOR FINAL SUBTRACT* 
BOF OVM (ADDING NEGATIVE IS SURT.) 
AOO WHICH SHOULDN«T HAVE. 
PLO MQ 
ore MA 
GHI MQ 
BNF *+*»04 

ADI ttOl .. NO NEED TO SAVE CARRY OUT 
ADD 

RR OVR-tJOl 
OVMi SM . . SAME THINS* 

PLO MQ ,. EXCEPT* FOR NEGATIVE DIVISOR. 

DEC MA 

GHI MO 

BDF *4»*04 

SMI ttOl 

SM 

PHI MO 

nVRI GHI MQ IF REMAINDER IS NOT ZERO* 

RNZ *+i>05 
GLO MQ 

RZ nVN BUT IT IS I NO PROBLEM. 
GLO CR IF NOT ZERO, 
ANI t*40 IT SHOULD BE SAME SIGN 
ADI **C0 .. AS ORIGINAL DIVIDEND. 
GHI MQ 
BOF *4tt04 
XRI RPO 
ADI tt80 
BNF OVC 
OVN! LOX ., 
ADI SflO 
BNF DVX 
GLO AC 



. . IF NOT, WE NEED 

ONF MORE DIVIDF ITERATION. 
FINALLY* IF DIVISOR NEGATIVE* 

(IT»S NOTt WE ARE DONE) 
• COMPLEMENT QUOTIENT* 
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0 63a 


FRFF 1 




YD T UVP RY TWVFRTTWR TT 


n V.7 c 


P 


U 3 1 V 


nl-U AC 




OB? n 


0^20 


GHI AC 


u not 


r nFP » 


0521 


Ani «rF 


U GHO 


BF I 


A C A A 

0522 


PHI AC 


n Alii 


1 r 1 




1 MC AC • • 1 nt N I nir^RcMtrJ T 1 




n t 




am WUU aa AUbU CLEAR UP a 




n5 r 








1 








t 


0527 


BINARY TO DECIMAL CONVERSION 




) 


0?i?ft 


, , ****DPCIMAL NUMBER = AC 




! 


05?a 


DFCIMAL NUMBER s SIGNfNO >N1 fN2f N3» , , 




1 


nR3n 


SiGNattOR + 




1 


V' J. 


^IGNsMOn * 




t 

t 


'J n^Jr, 






} 


0533 


Nl rl 0**1 DIGIT* FTC 


0 fSUS 


} 


0534 




0 fiii^ 


I 




Ai L mn t a A r mi imrtr i i t fmistu 


n ftus 


U6 ! 


n536 


v.r^i.ij i—ui\ Lii^jn, ay F ! JcC l Al. AULf^l-SS 




R A 1 




~ n 1 /\ " 


n f-iii 


U6 1 








AA 1 


V " 


PI n AB 




tlA 1 


fl*silfl 


1 HA 1 TMi^ ciTT eT7er fftl 
L-U A I. ITh|\ « « be 1 ^1 C.C. \ **} 


n Ail A 


1 n I 


fldlll 

U DH- JL 


Dl n MB 


n Ail P 


nn I 
nn ' 


ij n'+irr 


BU T MO 


ft nil f 


r Ml M J I 


' ' D 1* 


LDI «UL) aa STORr MINUS ( + J 






n si4 


•^TR AR 


n £ ji 


/-I p • 




GHI AC SET DF IF POSITIVE 


n ^ E fs 

065" 


FDTF » 


0546 


SDI **7F 


n ^ cf 4 
U rr>? 


FA 1 


0547 


SEX AR 


n At^T 


nil t 




SEr* TAUu. • ■ NOW CMANQE SIGN TO MATCH 




OAAO 1 














0658 


nu ( 


0551 


SFP CALL - . CFT Ar PO^ITIVF 


OiSSO 


nu.i R ( 


0552 


»A( SDCON) 




on ) 


0553 


# tinn 


o^sr 


on J 


ns5U 




065n 


r)ii i 


0555 


^FP CALL PIJ^H AC INTO QTArK* 


06'sr 


06FP I 


0556 


» A ( PUSHAC ) 


0660 


Fflon 1 


0557 


Lnl WnO ONLY TO RFPLArF TT 


066? 


50 I 


n55R 


^TR MA fiY A nTVT<OR OF in 


0663 


in 1 


055° 


TMr Ma 




FftO A 1 


ORAH 


L« i HUM 


0666 


SD ) 


n5Ai 


^ TR MA 


n AA7 


1 T ( 


n "=1 A9 


r\cr M ft 


0 AAP 


1 




Co^i Utl ''h; UKCr(C."*ir.NT Dlbil COUNT 


Ha AO 


AB ■ 

nr« 1 




Al A MB /■Urf*^ PKm 
Ol-O NR ■ a CncCi\ ENH 


n AA A 
If on ft 


/ r t 


f\ BEAR 


BT /iDV Won Tff ntlPBFI 

nt CHA • • £.e.nO 15 OVCRpLOW« 




conn t 






fl AAf 

u oor 




A c n 


PLU MO 


n £ 


HF I 


0568 


PHI MQ 


u nTO 


P^ ii t 


056O 


SEP CALL DIVIDE BY ID 


U n ' J 






» A 1 DI vQ ) 


n £. "7'» 

U 67,^ 


1 4 t 

1 A 1 


0571 


INC AR a a \ <) 


0 674 


REP 


0572 


GLO MO a. REMAINDER IS THIS DIGIT 


0675 


5A» 


0573 


5TR A« 


0676 


PFI 


0574 


GLO AC .a CHECK FOR NON-ZERO 


0677 


3A6PI 


0575 


BNZ CRL 


067Q 


QFt 


0576 


GHI AC 


067A 


5 A 6ft J 







067 A 
067C 
067D 

n67r 

067F 
06ftO 
06fll 
06flP 
06fl? 
06fl? 
06fl? 
0682 
06fl4 
0 6R5 
0 6R6 
06fl7 
06Pfl 
06Rq 
06PA 

0 6flr 

06Q2 
06Q3 
06Qti 
06Q5 
06P6 
0 6q6 
.'>6Q7 

OP-Qo 
06QA 
069C 
06QE 
06A0 
06AO 
C6A? 
06A(J 
06A6 
06A7 
06A9 
06AP 

06An 

06AF 
06AF 

n6AF 
06AF 
06AF 
06AF 
06AF 
06AF 

06Pn 
O6R1 
06R? 

0 6R3 
0 6R3 
06P3 
06R3 



3A6BI 

F6I 

3fli 

F5I 

12) 

12! 

051 

t 

I 

I 

I 

3BR5I 
1RI 

r? t 

OR I 

521 

AA I 

F7» 

AAI 

33Q1 t 

QA t 

FFOl I 

RA t 

API 

F6I 

FOl 

API 

05 » 

t 

5ai 

1 A I 

2RI 

ftp I 

3?fl2 1 

FAOni 

30061 

1 

FAoni 

3pa6f 

Fflfint 

F3i 

32ARI 

FAn6l 

FRORI 

30O6I 

I 

I 

I 

f 

I 
I 

461 

RDI 

Ufij 

ADl 

1 

t 

t 

t 



0577 
0570 
0570 



BNZ CBL », CONTINUE IF MORf DIGITS 
a« CLEAR DF FOR SUCCESS 



05ftl 

05fl2 

05fl3 

05R4 

05R5 

05ft6 

05fl7 

05AR 

n5ftO 

05Q0 

n5Pi 

05P2 

05Q3 

n5P4 

05P5 

05P6 

05P7 

n5Pfl 

05QP 
0600 
0601 
060? 

n603 
0604 
0605 
0606 
0607 
0608 

06oq 

0610 
061 1 
0612 
0613 
Ofiia 

0615 

n6l6 

0617 

0618 

061Q 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 



INC SP 
INC SP 
SEP RETN 



POP STACK (THAT TEN) 
a DONE, 



RESTORE RESULT POINTPR 

DRP; RNF *+«03 a. SAVP FLAG IN NR,0 



INC NR a, 

SEX SP a. 

GHI NR 
STR SP 
GLO AR a, 
SM (<) 
PLO AR 
BDF *+«n6 
GHI AR a. 
SMI aoi 
PHI AR 
GLO NR a. 
SHR 

LOX a, 

PLO NR 



(ASSIJME WAS 0) 

PUSH SAVED DIGIT COUNT 

INTO STACK 

SUBTRACT FROM RESULT ADDRESS 



aa {=){<) 

RORROW FROM HIGH rYTE (=) 
(=) (<) 

RECOVER DF 



POP SAVED COUNT > 
a a INTO NR.n 



SFP RETN 



RETURN 



a, STORE A BYTE 

. ADVANCE TO NEXT {<) 

. CHECK COUNT 



AT 0» GO RESTORE POINTERS 

, CONTINUE STORING 0 



( ADDRESS 



02R: STR AR 
INC AR 
DEC NR 
GLO NR 
RZ DRP a. 
LDI «00 a 
RR DZR 

a. COMPARE 5IGN5« AND CLEAR RESULT 
DZS: LDI MOB IF DFrOr TRY "+•♦ ( + ) 
BNF *+«n4 
LDI ttOD OTHFRWI^r (+) 

XOR .« COMPARE TO PRESENT M(R(X}) 
PZ *+tt04 ^ 
LDI tt06 a. NOT EQUALr SO CONDITION M1NUS(+) 
XRI WOB a. IF EQUAL SET PLUS t+) 
RR DZR a. GO STOREf WITH ZERO IN RFSilLT. 

a a 

•a 16-RlT ADD TO AC » OPERAND ADDRESS IN CALL 
a. ****AC=AC+OPRN a. 0PRN=2 BYTE OPERAND 
a. (TO CALL, WRITE) 

a. •♦♦♦CALL ADDOP I ,A(OPRN) 



ADDOP! LDA LINK a. FETCH OPERAND ADDRESS 
PHI MA a. TO REGISTER MA 

LDA LINK 

PLO MA a. FALL INTO ADO 

a. 16-RlT ADD TO ACf OPERAND ADDRESS IN REQI 
a. CALL HERE IF OPRN ADDRESS 
.. IS IN REGISTER MA 
•a ♦♦**AC=AC+MfR(MA) ) 
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0 6R3 


! 


0637 


(TO CALL* WRITF) 




! 


063R 


. . ****rALL ADD 


06B3 


J 


ft63P 


9 * 




FD t 


0640 


ADD! SEX MA .-CHFCK SIGN RIT OF AC 


qabu 


QFl 


0641 


GHI AC ..GET THE OPERAND 




F3l 


06U2 


XOR caAND OPERAND CiMA 


0 6nft 


FAflO 1 




ANI fiao .•RESULT A 1 IF DIFF 


Of-Rft 


B2 I 


06UU 


<TR SP . .STORE ON CT&rK 


0 P)RO 


3 n 1 


06^5 


TNJf MA .POTMT TO I nw B BTTC 


06RA 


RF J 


06^*6 


RLO af . . FFT(*H Ar 1 OW ft 


06RR 


I 


n Aii? 


Anh &nn L nw a prdm uvMnov 






n All ft 

IJ OHO 


Dl r\ Ar PI IT TT DATK 


n Ann 


pn t 


n Alio 


nvr Ma dotmt Tn mtau s MrMnav i A/>ATTnM 


t.' onr 


OK t 

"r t 


if r>r>'J 


RUT 

torn flc 


fl A.OC 

u nnr 


^"HC ' t 


Onr>3 


nrJr flUuNC 


vol i 


Cr* n 1 ! 

r 1, ' 1 1 9 




AUl wUl s. flSJD IN CARRY OUT UF LOW a 


O L - ' 






HNh flUDT.ir sa tU'*llT o LINES ir CARRY OUT NOT 






n ARU 


<n OfNP^a THAT r aob J en /*mit. irAviiMA n * 








• . PTWT^H Ann* FnPrTMf; fARBY Trv 1 


0 Af 7 


Fti 1 


n6'^6 


A^n^j^• add add hish r 


n Arfl 


RF 1 


0657 


PHI AC « • P! iT IN AC . 




U?i 


065P 


L5A SP ,.load the stored comparing sign bit 


Oftr A 


2P ( 


n6RP 


DEC 5P ..RESET STACK PTR 


Often 




0660 


BNZ ADDRT ..NOT POSSIBLE 


06rn 


QFI 


0661 


GHI AC ,.0THERWI<;F see if S'IM is RIGHT 




F3 I 


0663 


XOR .,RY COMPARING SIGN RITS 


OftCF 


FAAO » 


0663 


ANI H80 ..TAKE OUT THE" COMPARING RIT 




??rt6 1 


066U 


RZ ADORT ..IF SAMF»THFN NOT OVFRFLOWFn 


0 60? 


FCFF I 


0665 


ADI ttFF ..0THFRW1SE» SET DFbI 


06D5 


1 


0666 


f tt38 


0606 


Pf> t 


0667 


ADDRT! SHR --SHIFT OUT (1 INTO OF 


0 6D'' 




0668 


SEP RETN ..RETURN TO MAIN 


0 6nfl 


• 


n AAQ 




06nfl 


I 

r 




1 6-RTT rOMCTAMT Ann Trt Ar 


^608 


1 


fl A7 1 


TAl L HFRF FOB Ann ^"nMCTAMT Tn A/" 


0 6nfl 






****Ar"'Ar4.fnNCTAMT 


0 6Dfl 


I 

F 


0A7"'^ 




n Ann 


I 


n a71i 

1,' n f H 


a • AUOLUiN f P LUNS 1 ANT 




t 

1 






u on w 


DA t 




AUDCUIN. oLU LinK a. COPT LINK TO MA 


n ADO 


flu P 


UO r f 


Dl n Ma 


n An A 


OA 1 


n ATO 




n AHP 


nn 1 


n A7Q 


PH T Ma 


0 ADf 


1 A 1 


I ' O C 


TNr I INK TNrRPMFMT PA^T HaTIIM 


0 finn 


1 6 1 


DAR 1 


INC LINK 


n6Dr 




06P2 


RR ADD GO ADO. 


06FO 


1 


0683 




OfiFO 


1 


068U 


16-BIT ADO FROM TOP OF STACK 






06R!S 


ADDST! GHI SP • • COPY STACK POINTER 


06F1 


RHl 


0686 


PHI MA a. TO MA REGISTER 






06R7 


6L0 SP 




AD t 


0688 


PLC MA 




1 n 1 


06RQ 


IMC Ma ADVANCF TO SUB— TOP (nl 


06FS 


ID 1 


06PO 


INC MA (Q) 


OftFfi 


in» 


06C11 


INC MA a a (P) 


06F7 


30R3I 


0602 


BR ADD a. GO DO IT 


06FP 


t 


D6Q3 


■ • 




t 


0601* 




06F9 


t 


06P5 




06FO 


t 


06P6 


. , PUSH AC INTO STACK 



06FP 


( 


0697 


• m 


STACK 


POINTER = SP 


06F9 


1 


06QR 


ft 9 




«^4i«*4r (TO Call* WRITE) *♦**«♦** 


06FQ 


1 


06PP 




****CALL PUSHAC 




! 


0700 


. ] 


aUSH A 


C (UNDER TOP OF STACK) 


06FO 


Q2l 


0701 


PU5HAC! 


GHI 5 


P COPY STACK POINTER TO Ma 


06EA 


RDl 


0702 


PHI 


MA 




06EP 


fl?» 


0703 


GLO 


SP 




06FC 


AOI 




PLO 


MA 




06FD 


1D» 


0705 


INC 


MA .a 


NOW SLICE OFF TOP 2 BYTFSf 


06FF 


IDI 


0706 


INC 


MA 




06EF 


EDI 


0707 


SFX 


MA 




06F0 


FOl 


0708 


LDX 


. • TO 


MAKE A P-BYTE HOLE- 


OfiFI 




070P 


STR 


SP 




06F? 


?ni 


0710 


DEC 


MA 




06F3 


PP.t 


0711 


DEC 


SP 




06FU 


FOl 


0712 


LDX 






06FFi 


5? I 


0713 


STR 


SP 




06F6 


QFl 


071 


GHI 


AC .a 


NOW STUFF AC INTO THE HOLE. 


06F7 


5D) 


071 5 


STR 


MA 




061^8 


8F( 


071 6 


GLO 


AC 




06FO 


IDI 


0717 


INC 


MA 




06FA 


5D 1 


0718 


STR 


MA 




06FB 


PDI 


0719 


DEC 


MA •• 


LEAVE MA POINTING TO IT. 


06FC 


221 


0720 


DEC 


SP 




06FD 


DRi 


0721 


SEP 


RETN 


.. (AC UNCHANGED) 


06FE 


t 


0722 


a a PUSH CR» MA» MQ (UNDER TOP OF STACK) 


06FE 


RDl 


0723 


PUSHCQI 


GLO MA a. FIRST PUSH MA ONTO TOP 


06FF 


5?) 


0724 


STR 


SP 




07nfl 


??i 


0725 


DEC 


SP 




0 701 




0726 


GHI 


MA 




07n? 


5?l 


0727 


STR 


SP 




0703 


opi 


072fl 


GHI 


SP a a 


NOW COPY SP TO MA 


070U 


BDl 


0729 


PHI 


MA 






821 


0730 


6L0 


SP 




0706 


ADI 


0731 


PLO 


MA 




070T 


221 


073? 


DFC 


SP 




0708 


IDI 


0735 


INC 


MA a. 


THEN ADJUST IT 


0700 


ini 


0734 


INC 


MA 




070A 


ini 


0735 


INC 


MA a. 


TO POINT INTO OLD TOP 


070R 


RFI 


0736 


GLO 


MQ a a 


CONTINUE PUSHINGf MO 


070r 


R2I 


0737 


STR 


SP 




070n 


221 


0738 


DEC 


SP 




07OF 


OF 1 


073P 


GHI 


MQ 




07rF 


5? 1 


0740 


STR 


SP 




071 P 


?? t 


0741 


OFC 


SP 




071 1 


FD 1 


0742 


SEX 


MA .a 


NOW COPY OLD TOP TO NEW TOP 


071 ? 


FO 1 


0743 


LDX 






0713 


521 


0744 


STR 


SP 




OTia 


221 


0745 


OFC 


SP 




071R 


2Di 


0746 


DEC 


MA 




0716 


FOl 


0747 


LDX 






0717 


R?l 


074R 


STR 


SP 




071 8 


??l 


074P 


DEC 


SP 




071 9 


PC 1 


0750 


GHI 


CR 


FINALY INSERT CR IN HOLE 


07IA 


501 


0751 


STR 


MA 




071B 


IDI 


0752 


INC 


MA 




071C 


8CI 


0753 


GLO 


CR 




071D 


RDl 


0754 


STR 


MA 




071E 


D5I 


0755 


SEP 


RETN 


a. (MA IS GARBAGE OUT) 


071F 


1 


0756 


a ■ 
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0 71F f 
071P 12! 
0 720 021 



a? 



ins 

101 

bcj 

UD( 

ftr I 

2D I 
2D( 

if?) 
An 

42 \ 
pn ) 
42 ( 
ARl 
22 I 

nsi 

I 

I 

? 

r 

I 

46 J 

Rn» 

461 
AO I 

t 

t 

i 
I 
t 
I 
I 

4Dl 
RFl 

4DI 

AFl 

DBI 

I 

} 

) 

f 

I 

I 



0757 

0758 



POP STACK INTO MQf MA» OR (UNDER TOP OF S 



0722 
0723 
0 724 
0 725 
0726 
0727 
0T2R 
072Q 
072A 
0 72R 
0 7?r 
0 72n 
072F 
072F 
0730 
0731 
0732 
0733 
0734 
073fS 
0736 
0737 
n73R 
0 73O 
073A 
073B 
C73r 
073n 
0 73i^ 
073F 
n73F 
D73F 
073F 
073F 
073F 
0740 
0 741 
DT42 
0743 
0743 
0743 
0743 
0743 
0743 
0743 
0743 
0744 
074«^ 
0746 
074 7 
0 74R 
0748 
074P 
074B 
074ft 
074ft 



0762 
0763 



076S 
0766 

0767 

0768 



0770 



0772 
0773 
0774 
0775 
0776 



0778 
077Q 
07P0 
0781 
07fl2 
0783 
0784 
0785 
0786 
0787 
n788 
0780 
07Q0 
07PJ 
07P2 
07^3 
0704 
0705 

n7Q6 
07O7 
07O8 
07PO 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
OBOO 
0810 
0811 
0812 
083 3 
0814 
0815 
0816 



GHI 


^P . . 


fOPY QT&rK PniWTFF 


' TO Ma 


PHI 
GLO 


SP 






PLO 
INC 


MA 
MA 


ADJUST POINTER TO 


CR DATUM 


INC 


MA 






IHC 


MA 




■ 


IMC 


MA 






INC 


MA 






INC 


MA 






LDA 
PHI 


MA 
CR 


FFTCH IT 




LDA 
OLO 


MA 
CR 






DFC 


MA 


COPY TOP OF STACK 


INTO GAP 


DEC 


MA 






LOA 


SP 






5TR 


MA 






INC 


MA 






LPA 


SP 








Ma 






LOA 




THFN POP MQ 




PHI 


MO 






LDA 


SP 






PLO 


MQ 






LDA 


SP 


FINALLY POP MA 




PHI 


MA 






LDA 


SP 






PLO 


MA 






OEC 


SP 






SFP 


RFTrJ 







16-BIT ACCUMULATOR LOAD (ADDRESS IN CALL) 
***«AC=OPRN 

************ (TO CALL» WRITE) *********** 
****CALL LOADOP ( »A(OPRN) 

LOftOOPl LDA LINK FETCH ADDRESS 
PHI MA TO MA REGISTER 
LDA LINK 

PLO MA FALL INTO LOAD 

.. 16-BIT ACCUMULATOR LOAD (ADDRESS IN Ma) 
CALL HFRE IF OPERAND 
ADDRESS IN REGISTER MA 
****AC=M(R(MA) ) 

4*4^«**««*«** (to call* write) *********** 

****call load 



load: LDA Ma 

PHI AC 

LDA MA 
PLO AC . . 
SFP RETN 



FETCH HIGH 8 

NOW LOW 8 

LEAVE MA AT NEXT DOUBLE-RYTE 
GFE# THAT WAS QUICK. 



16-RlT ACCUMULATOR LOAD FROM CONSTANT IN 
♦***AC=C0N5TANT 

************ (TO CALL* WRITF) ****(!****** 
****CALL LODCON t (CONSTANT 



0748 461 
074O RF! 



0817 LODCON J LDA LINK 

0818 PHI AC 



FETCH HIGH 8 



0 74R 
074r 
074D 
074D 
074D 
07UD 
074D 
0740 
0740 
074F 
074F 
0750 
0751 
0751 
0751 
0751 
0751 
0 751 
0 75? 
0 753 
0754 
0759 
0756 
0757 
0758 
0758 
0758 
G7^n 
0758 

0758 
0758 

0758 

075Q 
0 75A 
075R 

075r 

D75r 
075C 
075r 
075r 
075C 
075r 
075r 
0 75O 
075F 
075F 
0761 
0763 
0 7(^4 
0 7f>5 
0767 
0768 
0760 
076 A 
076R 
076C 
076D 



THFN LOW a 



D5I 

* 

I 

I 

I 

t 

t 

46 J 

P0» 

461 

AOI 

I 

1 

t 

I 

I 

OF I 
50 1 
1D( 
8FI 
5DI 
1D» 
051 
I 
I 
I 
t 
t 
t 
I 

46 » 

ROI 

46) 

AD I 

I 

t 

I 

I 

t 

t 

t 

OF I 

F3I 

FA80 I 

3A6CI 

OF I 

F7I 

3A6n| 

lOJ 

8Fi 

F7I 

2ni 

381 
F4I 
D5I 



0821 

0822 

0823 

08P4 

0825 

0826 

0827 

0828 

n82Q 

0830 

0831 

0832 

0833 

0834. 

0835 

0836 

0837 

0838 

C830 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

084P 

084Q 

0850 

0851 

"852 

0853 

nn54 

0855 

0856 

0857 

0858 

085Q 

0860 

0861 

0862 

0 863 

0864 

0865 

0866 

0867 

0868 

086O 

0870 

0871 

0872 

0873 

0874 

0875 

0876 



SEP RETN 



16-BIT ACCUMULATOR STORF (ADDRESS IN CALL 
****OPRNaAC 

************ (TO CALL* WRITE) **** ***** ** 



STOROP! LOA LINK ^. FETCH ADDRESS INTO MA 
PHI MA 

LDA LINK 

PLO MA THEN FALL INTO STORE 

16-RlT ACCUMULATOR STORE (ADDRESS IN MA) 
****M(R{MA) )=AC 

************ (TO CALLp WRITE) *********** 

. . ****call store 



STOopj GHI AC 



FIRST HIGH 8 



INC MA INCREMFNT MA# SINCE STR DOESN»T 

GLO AC NOW LOW 8 
STR MA 

INC MA LEAVE MA POINTING TO NEXT WORD 

SFP RETN QUIT 



16-BIT COMPARE. OPERAND ADDRESS IN CALL 
****AC-OPRN (OF SET IF 0 OR +) 
************ (TO CALL* WRITE) *********** 
****CALL COMOP I »A(OPRN) 

COMPOPi LDA LINK FETCH ADDRESS 
PHI MA TO MA REGISTER 

LDA LINK 
PLC MA 

.. 16-PIT COMPARE* OPFRAND ADDRESS IN REGIST 
CALL HERF IF OPFPaMo 

ADDRESS IN REGISTER MA 

****AC-M(R(MA) ) (DF SET If 0 OR +) 
,* ************ (TO CALL* WRitE) *********** 
, . ****CALL COMP 
• ■ 

rOMPi SEX MA COMPARE HIGH 8 FR5T 

GHI AC ..CHECK IF SIGN OF OPERANDS ARE SAMf 
XOR ,.RY LOOKING AT THF HIGHEST SIGN BIT 
ANI tt80 ..RESULT A 'l* IF NEGATIVE 
BNZ CNE ..IF NOT# THEN GO TO CNE 
GHI AC 
SM 

BNZ CMPX NOT EQUAL QUITS 
INC MA TRY LOW 8 
GLO AC 
SM 

DEC MA LEAVE Ma POINTING TO IT 
>f«38 

CNE! ADO ..SEE IF OPERAND IS NEGATIVE 

CMP 
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0B76 CMPX 



I 

076F » 



076F 
07fiF 



0771 
077? 
0 77^ 
n77a 
0 77R 
0 77ft 
0777 
077O 
n77R 
0770 
n77F 
07Rn 
0781 
07fl2 
07R3 
0 7Ait 
07RS 
0 7«6 
n7B7 
0788 
07AA 
07flR 
07Bn 
078F 
07Rr 
0791 

0 7Q3 
0 7g? 



0798 
07OQ 
07Pft 
07PR 
0790 
07QF 
07An 
07A1 

0 7a? 

07A3 

07AR 
07A6 
0 7A7 
OT&S 



I 
t 

RAt 

AA ) 
46 ! 
AR I 
PR I 
FA I 
4A I 
FROOl 
3?7D» 
FRPF» 
RR I 
FAOOl 
AF) 
RF( 

F?i 

RA I 

Fti I 

A A J 
:^RRF I 
PA t 
FfO] I 
RA I 
flR» 

n#=,FQ! 

n7i*fl) 
no I 

DAI 

m 1 

3RA?I 
1?J 
121 
D?5) 
04 I 
n7RJ » 
2At 
U& I 
2A J 
FAOFJ 



0880 
OBfll 



0883 

DARit- 
0885 



0887 
PAflB 
OflflO 
08PO 

OBQI. 



ORQU 

0897 
08O8 
08PO 
OQOO 
OQOl 
090? 
0O03 

09oa 

0905 
090ft 

0007 

OQOR 
0QP9 

091 0 
Ool 1 
0912 
1913 
Oojlt 
0915 
0916 
0917 
nqi 8 

OQIO 

0O20 
0Q21 
0922 
0923 
0921* 
0925 
0926 
0927 
0Q28 
0929 
0930 
0931 
0932 
0933 
0934 
0935 



=1 IF AC>e(MA) 



DFCIMAL TO BINARY CONVERSION 
*«**ACzDECIMAL NUMBER OF N BYTES 
DFCIMAL NUMBER s SIGNfNp,Nl f N2f N3 

SIGN = «0B + 
SIGN = SOD - 



♦ «*4i«*4i***j|!*. ( TO C ALL i WRITE) ««*4ufc«««4HM' 
****CALL CDB t » A (NUMBER) I LENGTH 



TDBI LDA LINK GET DECIMAL ADDRESS 



PHI 


AR 




1 r\ A 

LDA 


L INK 




pLO 


A" 




LDA 
Dl f\ 


L i NP\ « 

M9 


• AND SIZE (PJ 


ore 


NR . , 


MTMI IS (IMS' ens C TftH 


SFX 


AR 


1 Aflk AT CTftM / 1 \ 


LDA 


AR 


\ V 1 


XRI 


**0D 




ens J rz 


*+tt0U 


«0n IF YE5> 


LDI 


tJFF . , 


ttFF IF NO! 


PHI 


NR 


REMEMBER THAT 


LDI 


aOO 


INITIALIZE AC TO 0 


PLO 


AC 




PHI 


AC 




SLO 


NR 


SO TO OTHER END 


STR 


SP 


BY ADDING SIZE 


SPX 


SP 




GLO 


AR . , 


TO ADDRESS 


ADD 


(<-) 




PLO 


AP 




RMF 


CDL 


(=)(<) 


GHI 


AR 


PROPAGATE CARRY (=) 


ADI 


**01 


ACROSS BYTES (r) K<\ 


PHI 


AR 


(s) 


CDLI 6L0 NR 


ANY MORE DIGITS 


R2 CDX 


NO 


DEC 


NR 


YES. 




CALL . 


. MULTIPLY AC ♦ 10 



»A( PUSHAC) 
5FP CALL .. 
»A( LOOCON) 



FROM STACK 



• ^OA 

SEP CALL 

?A( MPY) 

BNF *+a05 ..IF NOT OVERFLOWED^ SKIP EXIT 
INC 5P ..RESET STACK 



..OVERFLOW EXIT 
SEP CALL SAVE PRODUCT IN STACK 
#A( STORE) 
DEC AR . • U) 
LDA AR . . NOW GET DIGIT 



ANI ttOF REMOVE OVERBITE 



07AA 
07AB 
07An 

07AF 
07AF 

0 7R1 
07n2 
07R3 
07B5 
07B6 
07R8 
07BQ 
0 7RR 
07PC 
0 7Rn 
07RF 
07C0 
07Ct 

07r? 

07ra 
07r"; 
n7r7 

070 8 
0 7C9 
07CB 
07CC 

07rc 

07CC 
07CD 
07rE 
07rF 

07nfl 

0 702 
0 7n3 
0705 
07D6 
07n8 
07nA 
0 70^ 
0 7nA 
07nA 
070A 

07or 
07nr 

n7ro 
0 7ri 

0 7F2 
07r3 
07Fa 
n7F5 
07F6 
07F7 
07F9 
07rA 
07FB 
0 7Ff 
07FD 
07EE 
07FF 
07FO 
0 7F1 
07F2 
0 7F3 
07F4 
07F5 
07F6 
OTF? 
0000 



AFI 

FBOOl 

PF( 

OftFOi 

l?t 

121 

3BBFI 

BR» 

3AC0I 

9R| 

3AC0I 

?F ! 

QFt 

^r80» 

1F( 
D5I 
nRl 

3Ar9i 

nm 5t 

on I 

noi 

From 

m\ 

I 

I 

lAl 
IftI 
P5) 
9Fl 

fcboj 

9Fl 

^Acr ) 

BFl 
32rFl 

3nrr I 

I 

% 

\ 

f 

FFOOl 
30F0I 

Fror I 

121 
o?l 
RDi 
8? I 
AD) 
ID I 
ID I 
3BEF I 
UOl 
RFl 

uni 

AFl 
2D I 

2ni 

1421 

5DI 

ID) 
U2l 
5DI 
1DI 

22r 

D5l 
% 



0936 
0937 
0Q3fl 

0039 

0940 
09tH 
0942 
0943 
0941K 
0O45 
'1946 
0947 
0948 
0040 
0050 
0951 
095? 
0953 
0954 
0085 
no=i6 

0Q57 
0Q58 
0959 
0960 
0961 
0QA2 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 
no7i 

0972 
0Q73 
0974 
0975 
0976 
0977 
0978 
097O 

ooRn 
nopi 

0982 
0O83 
0O84 
0985 
0986 
0987 
0O8B 
0989 
0Q90 
0993 
0992 
0993 
0994 
0995 
0996 
0997 
099B 
0999 
1000 
1001 
1002 



PLO AC 

LDI «00 
PHI AC 

SEP CALL ADD TO PREVIOUS NUMBFR 
» A( ADDST) 

CDO! INC SP 

INC SP 

BNF CDL ADVANCE TO NEXT DIGIT 
6L0 NR ..NO MORE DIGIT? 
BNZ CDRT . .OVERFLOWED 
GHI NR . .POSITIVE NUMBER? 



AC . . IF AC IS #8000 IS OK 
SHI AC ..TFST THAT BIT 

API «ao 

INC AC ..REMEMBER TO RESET AC 
CDRTI SEP RETM ..OVERFLOW RETURN 

CDX! GHI NR ..NO. LOOK AT SIGN 

PNZ *+t*07 . . POSITIVE 

SFP CALL 

»A( SOCON) NEGATIVE. SUBTRACT FROM 0 

rffOO 

»ttO0 

ADI WOP . . CLEAR DF 
SEP RFTN DFrO IF OK, 
. • 

..TEST 3.6-RIT ACCiiMULATOR <^IGN/ZER0 , 

INC LINK ..SKIP OVER NON ZERO RETURN 
INC LINK 
SFP RFTN 

rrSTl GHI AC FIRST LOOK AT SIGN 
ADI ttflO ..SET DF IF MINUS 
GHI AC NOW CHECK FOR 0 
RNZ TEST-«03 ..NO. 
GLO AC 

nZ TFST-OOl GO TaKF Zrpo FXIT. 
BR TEST-ttr3 GO TAKF NON-ZERO FXIT, 
.. POP STACK (INTO AD (UNDER TOP) 
POPS 2 BYTES FROM STACK INTO AC 
., *****4i«**««* (TO CALL* WRITE) ******** 
.« ****CALL POPAC 
POPAC! SMI «00 SET F TO REMEMBER THIS ENTRY 
BR *+t*04 

POPi ADI »00 CLEAR OF FOR THIS ENTRY 
INC SP 

GHI SP .. COPY SP TO MA 
PHI MA 
GLO SP 
PLO MA 

INC MA .. ADJUST TO SUB-TOP OF STACK 
INC MA 

BNF *+»0B 

LDA MA .. POPPING INTO AC. SET DATUM - 
PHI AC 
LDA MA 
PLO AC 

DEC MA RESTORE POINTER 
DEC MA 

LDA SP NOW CLOSE UP THE GAP 
STR Ma 

INC MA 



INC MA 
DEC SP 

SEP RETN MA POINTS TO NEW SUB-TOP 

END 
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Appendix B(ll) - 
Arithmetic Subroutine 
Listing for CDP1802 



0000 


t 


0001 




coon 


I 


0002 




Doon 


1 


0003 


COPYRIGHT 1976 RCA CORPORATION 


0000 


1 


0004 


COSMAC ARITHMETIC SMRROUTINE: PACKAGE 


oono 


t 


0005 


> • 




I 


OOOfi 


.. VERSION 1.1 FOR COP1802 


oono 




0007 


• • 


conn 


» 


OOOB 


FXTRArTFD FOR RINARY ARITHMETIC 


OPOO 


t 


OOOQ 


AND CONVrRSIONS FOR HECIMaL 


OOno 


t 


0010 


OCCuPlFS IK RYTES 

■ • 


0000 


f 


0011 


0000 


1 


OOtP 


• • 


GOOO 


I 


0013 


DfTSIGNFO FOR STANDARD CSDP SURROHTINF rALL « RFT 


cooo 


I 


OOlU 




0000 


1 


0015 


FOR STaNDaRO LIMKAGFr 


onon 


I 


OOlfr 


SPs **n3 ...IT '5H0IILD BF THF <^TaCK POINTF^. 


oonn 


1 


0017 


PC= ttO:5 ...IT l'^ THF PROGRAM rOUNTFR 


oono 


1 


OOJA 


I.ISFD BY THESE SlJRROMTINFS , 




1 


Onj a 


CALLa R04 , ..IT SHOULD POINT TO THF ROMTINF 


OOOn 


1 


0020 


WHICH EFFECTS SUBROUTINE CALLS. 


0000 


1 


no?l 


RFTN= tt05 ...IT SHOULD POINT TO THE RO'.ITINE 




t 




.. WHICH FFFFCTS SiJPROiJTINE RETURN. 






Ofl?3 


LINK= doe ...IT SHOULD POINT TO CALL PARAMETER 


n nnn 


* 


00?i* 


.. .. (USUALLY OPERAND ADDRESSES ANn/OR CONSTANT) 






nn?5 


• . 






OOP'S 




OOCO 


* 


00?7 


.. THF FOLLOWING RE<5ISTER3 MIJST RE A«;SI©NED 


0000 


* 


00?P 


AR= **0A ..(USED FOR RESULT ADDRESS) 


0000 




P0?9 




0000 




A A ^ A 


NRa Pun . • (USED FOR RESULT DIGIT cT INT i 


n An A 

11 00 D 




A n T 4 


. • 1 0""H IT RINART Awl TnMc T i C RUU l 1 !N£5 


A A A A 


* 


A A 


• * TnP^ FOLLOW REB 1 STr R5 RF ASS J uNfcu 






n ^ T 

n n ,T ,^ 


flC— nriF lo— niT ACC if^' 'L.A fORrr'^r » 


r n n n 




003^ 


MQr cOf . . 16-BIT ACC JMtJL ATORrRe FXTFN" ION. 


n ni^ n 






MAr tfitD , , { TEMPORARY ) OP^R ANH MFMOR' Y AHDRFS? . 


0000 




0 0. "5^ 


CRss dOC .. (TEMPORARY) SCRATCHPAD AND COUNTER. 


0000 




0037 


. . 


0000 




003R 




0000 




no3o 


.. SWAP AC WITH MO RFGlSTFRS 


nnnn 


OF I 


noiio 


e;WAPAQ! GHI MO ., c;AVE MQ . ) 


0 001 


AC t 


D041 


PLO CR .. lU CR.O (COULn HAVE P'lSHEH ON STAC 


onn? 


OP I 


nni*? 


GHI AC .. NOW AC.l TO M0.1 


0003 


RFI 


00i*3 


PHI MQ 


OOOU 


8FI 


004U 


GLO MO SAVE MQ.O 


000«^ 


RFI 


00**F5 


PHI AC .. IN AC.l 


OOOf 


RFI 


001*6 


GLO AC .. THEN AC.O TO MQ.O 


0007 


AFl 


onu7 


PLO MQ 


OOOR 


PFi 


OOUB 


GHI AC NOW SAVED MQ . n TO AC.O 


nono 


AFl 


004Q 


PLO AC 


OOOA 


or 1 


0050 


GLO CR FINALLY SAVFD MQ.l 


OOOP 


RFI 


OOSl 


PHI. AC TO AC.l 
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ODOC DBS 



t 

Qfi) 



161 

I 
I 
t 

I 



OOdD 
OOOR 
OOOP 

OflOF 

001 n 

001 1 

oni? 

001 s 
001 ^ 
0015 
001.R 

001'^ 
001 ^ 
001 



oni 7 

001 R 
001Q 
P01 o 
OOiq 
0O1 P 
OOIQ 

nolo 

OOIQ 

onio 

001 A 
OOJR 

ooir 
ooirt 

001F 
0O1F 

ooso 
on?i 

OOP? 

0^:?^^ 

OOP? 
00?Q 
On2A 
00?R 

00?r 

00?D 

00?D 

oo?n 

00?D 

oo?n 
oo?n 
on?n 
002F 
00?F 

ooso 

0031 



U6I 

ADl 

I 

t 

I 

I 

I 

i 

i 

rnr 
ini 

AF) 
FR( 
AFI 
PDI 
QFI 
TRI 
PFl 
n?i 
FFi 

3R?r I 

QFI 
F3i 
FF I 

t 

) 
I 



I 

AHI 
I 



005U 
O0B5 
0056 
0057 

005P 



16-BIT SUBTRACT AC FROM CONSTANT 
****AC= CONSTANT-AC 

(TO CALLr WRITET) 
•*»*CALL 5DC0N i »COM?TaNT 



^DCONt GLO LINK 



0073 
007** 
0075 
0076 
0077 
n07R 

nci7Q 

PORO 
OOflS 
OOP? 

oofis 

O0A4 
OOPR 
00fl6 

nofl? 
OOBR 
OOPQ 
OOQO 
OOOl 
009? 
00O3 
00Q4 
"0Q5 
.0006 
0097 
OOQA 

onpo 

OJOO 

0101 
0102 
0103 
OlOU 
0105 
0106 
0107 
OlOfl 
OIOQ 

Olio 



0061 
0062 
0063 
0064 
0065 
0066 
0067 

n06Q 

noTO 
n071 



^fSSFMTlALLY SAMP AS AOCON) 



INC LINK 
INC LINK 
RR SD 
• • 

.. J6-RIT SURTRACT AC FRO" OPERAND 
, . ****Ar=0»RN-Ar 

(TO TALL* WRITF) *♦*««***«** 
****r ALL SHOP I . A (OPRM) 

NK FETCH OPFRAND ADDRESS 
PHT Ma TO MA REGISTFR 
LDA LINK 

PLO MA FALL INTO 

le^RIT SURTRACT AC FROM OPERAND 
CALL HFRF IF OPERAND 
ADDRFSS IN RFGISTER MA 
rtCaM(R (MA) J-AC 
******** (TO CALLf WRITE) 
. . ****CALL SD 



SDt 



SFX MA SFT X PTR TO Ma 

GHI AC ..CHECK SIGN BIT OF Ar 
XOR , . AMD 0»FRiNn CiMA 
^TR SP ..AND STOBF ON «;taCK 
INC MA , .POINT TO LOW ft 
SLO AC . . FETCH AC LOW 6 

SURTRACT FROM LOW fl IN MEMORY 
»L0 AC PUT IT RACK 
DFC MA .. NOW HI6H R 
GHI AC 

SDNRf SDR SURTRACT HIGH P 
PHI AC PUT IT RACK 

LON SP ..LOAD STORFn COMPARING nlT OF OPERANDS 
^HL ,,rHFCK ^TOREn SIGN COMPa^ I:" I Qf J rIT 
RNF SDFF ..IF OPERANn'S SIGNS ARp SAME 
SHI AC ,,N0 OVERFLOW POSSIRLE 
XOR ..OTHER WISE CHECK RESULT 
SHL ..SET DFbO IF OK 
SDFFf SEP RETN ..RETURN 
• • 

16~P1IT SURTRACT Fi^OM AC ( ADDRFSS IN CALL) 
. • ♦***Af =Ar-OPRN 

************ (TO CALL. WRITE) *********** 
****CALL SMOP I »A(OPRN) 

SMOp'i'lDA LINK 
PHI MA 

LOA LINK 

PLO MA 

.. 16-RlT SUBTRACT FROM AC (ADDRESS IN MA) 
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0031 


1 


0111 




TALL HERE IF OPERAND 


0031 


! 


0112 




AnnRFSS IN REGISTFR MA 


0031 


) 


0113 




****AC=AC-M(R{Ma) ) 


0031 


i 


0114 




**««4i««4e4c*** (TO CALL* WRITE) *********** 


0031 


t 


0115 




****CALL 5M 


0031 


t 


0116 






0031 


c-oi 


0J17 


SMS 


SFX Ma ..set X PTR 


003? 


QFi 


OllR 




GHI AC ..GET SIGN OF flC AND 


0033 


F6I 


niip 




SHR . . AND STORF IN 7TH BIT OF CR 


Ofl3U 


5?| 


0120 




STR SP ..PUT PUT IN (SP) FIRST 


on3'=; 


QF( 


01?1 




GHI AC ..AND SEE IP OPERANDS SIGNS ARE THE SAME 


0 036 


F3l 


0122 




XOR 


0037 


FARO 1 


01 23 




ANI ftPO ..TflKF OUT COMPARING SIGN RiT 


003O 


F?| 


01 ?u 




SEX SP ..NOW STORE THAT RiT IN 8TH OF CR 


003A 


FUl 


0125 




ADD ..BY ADDING TO IT 


003R 


5?l 


0126 




STR SP ..AND STORE THESE TWO BITS ON STACK 


on3r 


ini 


0127 




IMC MA ..POINT TO LOW 8 


on:^D 


Fn» 


012P 




SEX MA ..RfMFMRFR TO SET X TO OPERANDS 


n03F 


RFI 


012Q 




GLO AC . . PETCH AC LOW B 


003F 


F7t 


013D 




SM SURTRACT MpMORY FROM IT 


0040 


AFI 


0131 




PLO AC PUT IT RACK. 


0041 


?ni 


01 32 




DEC MA ., NOW HIGH 8 


OOit? 


QFl 


0133 




GHI AC 


0OM3 


771 


0134 


SMNR: SMR HIGH 8 SUPTRArTj NO RORROW ACROSS. 


Of)un 


RFl 


0135 




PHI AC PUT HIGH 8 RACK 


00H5 


P?l 


0136 




SEX SP ..NOW CHECK IF UNDFRFLOWED 


onuA 


FO 1 


0137 




LDX ..LOAD THE STORED TWO BITS 


OOUT 


FFl 


013R 




SHL ..4ND TftKE OUT THE COMPARING SIGN RIT 


nOUft 


3R4FI 


01 7p 




RNF SMRT ..THE SAMF» UNDFRFLOW MOT POSSlRLF 


OOUA 


5?l 


OJUO 




STR SP ..PUT IT RACK TO STACK 


OOUR 


QFl 


01U1 




SHI AC ..OTHERWISE HAVE TO COMPA«>F SIGN OF RES 


oouc 


F3l 


01U2 




XOB .,^TGM PIT OF AC WAS STORFD ON STACK 


onuR 


FEi 


0143 




SHL ..TAKF OUT THAT 7TH RIT 


OOUE 


n5i 


01 au 


SMRTJ SEP RETN ..OFsO IF SUPTRACTION OK 


OOUF 




01ti5 




. • 


Ooap 




0146 




* 1 


n04F 


1 


0147 




..16X16 RIT SIGNED MULTIPLY(2tS COMPLEMENT) 


OOUF 


I 


OlUR 




. .****AC=AC*OPRN 


OOUF 


1 


OlUq 




..***«**«*«*** (TO CALL* WRITE )************ 


OOHF 


t 


0150 




.,*****CALL MPYOP 1 .A (OPRM) 


OOUF 


1 


0151 




■ ■ 


OOUF 


U6I 


0152 


MPYOP: LOA LINK ..FETCH MULTIPLICAND ADDRS 


0050 


RDI 


0153 




SHI MA ..INTO REGISTER A 


0 0^1 


U6I 


0154 




LDA LINK 


0 0=;? 


r.n I 


0155 




PLO Ma , .fall INTO MPY 


0 nc;:^ 


1 


0156 




.. 16X16 BIT SIGNED MULTIPLY (2'S COMPLEMENT) 


0 0*^3 


1 


0157 




., CALL HERE IF OPERAND ADDRESS 


0053 


1 


0158 




.. IN REGISTFR MA 


0053 


1 


0150 




,, ♦***AC=AC*M(R(MA) ) 


0 053 


1 


0160 




.. ***««***«*«* (TO CALLr WRITE) ««*««*«**«« 


0053 




0161 




****CALL MPY 


0053 


1 


0162 




• . 


O0'=;3 


rni 


0163 


MPY 


S SEX MA . . SET X NOW 


00";^ 


QFI 


01 64 




GHI AC ..CHECK IS THE SIGN OF MULTICaND 


0055 


F3I 


0165 




XOR ..THE SAME AS THE SIGN OF MULTIPR 


0056 


FAROI 


0166 




ANI «R0 ..AND STORE THAT BIT 


0058 


RCI 


0167 




PHI CR ..INTO CR.l 


005Q 


FRlOl 


016P 




LDI ttlO .. SET COUNTER TO 16 
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0 OFiR 


AT ! 






pin rR 




r oij u f 


U I T U 




i_Ui. wOU ea iiNlTlALXtF MQ TO 0 




nr. » 


U 1 ? I 




r'rli f^U «ae TO nOUD rRODUCT, 


n f\KP 


HP 1 


n 1 ?o 

II 1 Tid 




&\ P\ MA 




c I t 


ft 1 fK 


MSI ( 


DrC Cn ••Ip NOTr DrCRcMcNT IT» 


0061 


" 1 w 


n 1 7ii 




OUT A/» CMTVT f ^Ml ll TTBl TVB 1 BTALJT 


0 06? 


F6t 


0175 




5HR 


0063 


RFt 


0176 




PHI AC 


00f>H 


RP» 


0177 




SLO AC 


006^ 


76 r 


0178 




SHRC . . SHIFT 0 ACROSS BYTES 


0066 


AFI 


017Q 




PLO AC 


0067 


OF) 


ni RO 




GHI MO 


0068 


3R76J 


Olfll 




RNF MPR ..IF NO RiT OUT* OONfT ABD. 


006A 


ini 


01P2 




INC MA «, POI^JT TO LOW 8 OF MULTIPLICAND 


006B 


PCI 


03fl3 




GLO PR IF NOT LA^T iTFRATlONIi 


006r 


3A70I 


OJRtt 




RMZ MPA GO ADD. 


006F 


PFl 


01fl«! 




GLO MG ..LOAD MQ,0 INTO D 


0 06P 


F7i 


01R6 




. .MQ.O-(Ma, 0) 




AT I 


01 A7 




PLO MQ ..AND ^TORF R^^K INTO MQ 0 


0071 


?n I 


0 1 P8 




DFC MA ..NOW no THF HIGH RYTF 


0 07? 


PF I 


0 1 RP 




GHI MQ 


007!^ 


771 


0 IQO 




.T 'n • • rtr.nr. '^iric inc. R"~~'.'H CJl i 


007U 


RF 1 


■■J Jt ~ i 








or 1 


0 1 Q9 






0 076 


FF 1 


ft 1 O"^ 






0 077 


» ' I * p *T 1 


ft 1 OIL 






0 070 


net 


0 1 Q*^ 




fix UA nA UAj./U>1 


0 nT A 


Til 1 


ft 1 n*. 




A r^m UA A J. / u n n\ 


0 n7R 


AF I 


n 1 




Dl (ft A Mn DllT DA/'L*' TMTA MA ft 
"U. VJ « • AI'JU •^1. II H*\(.r\ INl'J MfyjU 


007r 


?ni 


0 IQR 




DFC MA ..^AMF for HIGH nVTF 


0 07n 


QF I 


OIPP 




SHI MO 


oo7r 


7ii 1 


0200 




ABC . . &nn WITH rAPRY 


007F 


RFl 


0201 




PHI MO 


oopn 


CFI 


0202 


MPSI 


LBDF 


OOfll 


FOr 


0203 




LDX 


OOA? 


FFl 


0?Oit 




^HL..IF OPFRAND I<? NFGATIVFfTHFN 


OOR? 


QF 1 


0505 




SHI MQ ..PUT MQ.l INTO 0 


OOflu 


761 


0206 




SHRC SHIFT IN CARRY 


OOflS 


RF» 


0207 




PHI MQ 


OOPfi 


RFl 


020fl 




GLO MQ • • CONTINlJF TO LOW fl OF MQ 


0087 


761 


020O 




SHRC 


OOPfl 


AFl 


0210 




PLC MO 


OOflQ 


?RRF( 


0211 




PMF MT IF MO CARRY OUT, IT^RATF. 


OOflR 


QFl 


021? 




GHI AC .. ADD CARRY OUT INTO AC MSR, 


OOflC 


FPftO 1 


0213 




ORl «flO 


OOPF 


RFl 


021ii 




PHI AC 


OORF 


flC 1 


021*5 


MTf 


GLO CR ..CHECK COUNTER 


OOPO 


^A60 1 


0216 




RMZ MPL ..IF COUNTFR IS NOT n»GO RArK FOR 


ooo? 


QF t 


n9i 7 

u^j. r 




(jMl AC (. rliNlSHcDI 




CP ) 


ft ^ 1 Q 




5ML • • CncCK FOR PRODUCT > 15 BITS* 


OOQU 


pr 1 








00Q5 


rii 


0220 




LSNF ..THAT'S HIGH 17 BITS 


00Q6 


FRFFI 


0221 




XRI «FF ALL 00 OR FF, 


OOQR 


jSapf I 


0222 




RMZ *+»06 .. NAW. 


OOQA 


OF I 


0223 




GHI MQ 


OOPR 


r7i 


0^2^^ 




LSNF 


ooQr 


FRFFI 


022S 




XRI ttFF 


OOPF 


FCFFl 


0226 




ADI »FF .. SFT DF IF PRODUCT > 15 RiTS 



OOAO 
OOAI 
00A1 
OOAl 
OOAl 
OOAl 
OOAl 
OOfll 
OOA? 
00A3 
OOAU 
00A5 
OOAS 

OOA?; 

OOAF^ 
OOAR 

ooaf; 

0CA6 
OOAT 
OOAR 
on A A 
OOAR 
OOAD 
OOAP 
OOAF 

nnwo 

OPRI 
OOP? 
DORti 
O0R6 
00P7 
OnR7 
00R7 
00R7 
00R7 

nnn7 

nORR 
OORO 
CORA 
0 ORR 
OORC 
OORD 
DORF 
OORF 

oor'' 
oon 
nor? 
Ooci^ 

onr«5 
noc7 

OOCP 
OOCA 

oorc 
oocn 

OOCF 
OOCF 
OODl 
00D3 
000^* 



05) 



U6I 
RO) 
iJ6l 

Arn 
I 

1 
I 

PHI 
QFI 
PFl 

FflOOl 

r7i 

FPPPi 

RFl 

AFl 

urt 

F1 ) 

Fpon I 

?^RR7| 

n?i 

I 

I 



I 

or I 

RC I 
RF I 
AC » 
FFI 
AFl 

QFI 
7FI 

n»i 

or I 
FFI 

T3rni 

PCI 
3ACFI 

9r I 

Fflt»ni 

3207 1 

3PI 

IPl 

PCI 

FACOl 

FDOOl 

FFI 

r301R6l 



0227 
022R 
022Q 
0230 
0231 
0232 
0233 
023U 
023«; 
n?36 
n?37 
023R 
023Q 
0?UO 
0241 
02U2 
0243 
02^4 

0245 
n?a6 
0247 

n2UP 

0240 
0250 
1251 
0252 
0253 
0254 
P?55 
0256 
0957 
025P 
025O 
0260 
0261 
026? 
0263 
npfyU 

0265 
0266 
0267 
026P 
026P 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
027fl 
027Q 
0280 
02fll 
02R2 
02fl3 
02fl4 
02fl5 



RETURN 

32/16 RIT SIGNED DlVlDF (2<S COMPLFMfNT) 
AC=MQ» AC/OPRN 
QUOTIENT IN AC p RFMAI 
*•«*•*«**«*• TO CALL. 
CALL DIVOP I »A(OPRN) 



IN 
WRITE) 



MQ 



niVOP! LDA LINK .. FFTCH OPERAND 
PH! MA TO RFSISTFR Ma 

LOA LINK 

PLO Ma FALL INTO nivn/Div/nivQ. 

, 32/16 RIT SIGNFD DIVIDF (2»S cOMdLFMENT) 

OPTION «1: CLF&R MO AND CHECK FOR ZFRO D 
. ****ACsMQ,AC/M(R{MA) ) 

. (to call* write) ««**««**«*« 

, ****call divo 
dtvfti sfx ma 5ft x to point to divisor (0) 

ghi ac look at ac sign (0) 

shl copy it to of (0) 

ldi foo fxtpno »*00 ip positive^ (0) 

LSNF (0) 

LHI tiFF ttFF IF NEGATIVE. (0) 
PHI MQ ., GIVING +0 OR -0 IN MQ if)) 
PLO MQ ., (0) 

LDA MA rHFCK FOR ZFRO DIVISOR (0) 



DIV 



n2t 



OR 

nrr 



(0) 



MA 



501 fno 



{DOM»T FORGET TO FIX POINTER) (0) 
IF ZFRO» CALL IT DIVIDE CHgrK(n) 
RNF niV ,.G0 ON Tf NO DIVIDE CHFrK spR» 
SEP RETN ..AND RETURN WITH DFrl (0) 

OPTION t*2! PERMIT 32-PlT DIVIDFNDI (/) 



MAKE SURE QUOTIENT DOES MOT FXCEFD 
***♦♦* fTO CALL> WRITE) ***«♦*(/) 



16 RIT=; C/) 



CALL DIV ♦****(/) 
GHI MQ ..SAVE PARTIAL DIVIOENdC/) 
OHX CR , . INTO CR.l (/) 
. . (/) 
..AND CR.O(/) 
.(/) 
.. (/) 

..DO THE SAME FOR HIGH pYTEC/) 
. .RFMEMrFR CARRY(/) ■ 
(/) 

..ALSO SHIFT IN AC HIGH(/) 

. (/) 

..(/) 



GLO MQ 
PLO CR 
SHL 

PLO MQ 
GHI MQ 

SMLC 
PHI MQ 
GHI AC 
SHL 

RDF n?- 



GLO CR 
RNZ D2 
GHI CR . 
XRI ttUn 
RZ DU 
»«38 

INC MQ , 
GHI CR 
ANI ttCO 
SDl «00 



..SEE IF MQ.n =0(/) 

..IF NOT GO THROUGH CHECKING 5TEPS</) 
..SEE IF MQ.l IS 340(/) 
..WHICH SHOULD RESULT 0 IF TRUEt/) 
..IF TRUFfSKIP NORMAL CHFCKING(/) 



IF 1» SHIFT 

-.CHECK IF 
-.TAKE OUT 2 
.SEE IF THEY 



SHL 
LROF 



•.SHIFT OUT 
DVXX -.SET 



NTO MQ(/) 

HIGH ? BITS OF MQ ARE THE SAMpf/) 
HIGH RITS</) 
ARE THE SAME(/) 
COMPARISON (/) 
DF AND RETURN*/) 
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-Fl 
OODP IDI 

oonr BP I 

Onon 33F6I 
nnnF f7i 



Onm 771 

OOPfi Fill 
00F7 AFi 
OOFfi ?ni 

OOFO OF I 



OPFC" rROOFA) 

nnri opt 

OOF? FRFFi 
nOF^ API 



OOFQ 
OOFA 
OOPR 
OOFB" 
OOFF 

01 o;^ 

ni Of 

01 OR 

ojnr 

01 on 

010F 



API 
\Ft 
OF I 

FF) 

p.r J 

FCFT s 

FRFFI 
3A3QI 

or» 

FARO I 



on u 
oils 

0)16 
01 17 

01 IP, 

ni io 
on A 
onn 
one 

011.P 



1.0) 
RPI 
PUI 
ATI 

?ni 

QF 3 
7M ) 
PFJ 
IP) 

FOi 
Ffti 



0290 



INC MA 
GUO MQ 



AT THE SIGNS OF DiVNn AND DIVSR (/> 
««POINT X TO DIVI50R{/) 

/) 

,PT OF IF THP SAME(/) 
,.MO.0-(Mfl) (/) 
..MQ.n TO 0(/) 

»MQ.O+{Ma) (/) 



02QU 



AND =;T0RF rack INTO MQ.O {/) 



GHI MO 



n?Q7 
0?9n 

OPoo nVAS 
0300 

n:^oi 

03014 nVR! PHI 
0305 
0306 
0307 
030fl 
0300 

0310 
0311 



XPI ttPP 

DHI MQ 
GLO MQ 
tiFP 



031 3 

031S 
03)6 
0317 
0318 
031Q 
0320 
0321 
0322 
0323 
032U 
032f^ 
n326 
0357 
G3?P, 
03?c) 
0330 
033) 
0332 
0333 
033i+ 



010! 



%m .,MQ.1-(MA,J> WITH CAR^Y(/) 
RR nVB ..SKIP OVER ADf5 5TFP(/) 

AOn . .MO+(MA) (/) 
PLO MO ..^TORP PACK TO MQ,n(/) 

nrr MA ,,5AMF FOR HIGH PYTF(/) 
3.1 + (Ma.1.) {/) 

. , ADD "^Q. 1 ANn (MA, n WITH CAPRY(/) 
MQ ..AND 5T0^P PACK INTO MQ.K/) , 
GHT rp. ..LOOK AT THE ^IGU OF OlVlNrX/) 
SHL ..SFT HF IF DTVIND IS NfGATIVP 
LRNF nV2 ..IF NOT* noN'T rOMPLFMENT DlFFC/J 
GHI MO ..COMPLFMFNT MQ{/) 
, .BY XOR TO «FF(/) 
, . (/) 

.,(00 THP SAMF FOR LOW RYTFX/) 

. . (/) 
. . (/) 

..RFMFMRFft TO ADD 1 (/} 
SHI m ..MOW LOOK AT THE OIFF OF MQ&(MA)(/) 
..IF OpCHFCK MQ=0(/) 
..CHECK IF MO IS MFGftTlVF?/) 
ODQ ..IF YF?» NO PR.ORLFM!y) 

IF NOT 0 MO^ NFG^niVND I*; TOO LARG«' (/) 

■,.Hri^F WF Ci-iECK DIFFsrn C'^SFS{/) 
.,Tr MO.O NOT EITHPR 0 OR l(/3 

..THEN DIVNn IS STILL TOO LaRGF(/) 
..RESULT 0 IF MQ.O WAS 1 (/) 
..IF NOTf MUST PF Ot GO TO nVH(/) 
..SFF IF DIVNn IS NEGATIVE*/) 

, .RESULT 80 IF YrS(/) 
,.IF DIVNn P0SITIVF» IT CANNOT OlVlOFt/ 
..SFF TP DIVISOR IS oOSlTlVEt/) 
nVXX .,IF NFGATIvrr DIVND CANNOT DlVIDE</) 
MA , . *C+(MA) TO MQ{/) 
GLO AC ..DO AC LOW FIRST*/) 
(/) 

..STORE RACK TO LOW MQ(/) 
..no THF SAME FOR HIGH RYTEl/) 



PLO MQ 
INC MQ 
SH' 
LBZ D10 
SHL 
RHP 
PR . . 

GLO MO 



PDF DVXX 
XRT ttFF 
RNZ OVH 
GHI CP 

ANT iSf>0 



RZ 

Ann 



no 



ADD 

OLO MQ 

OFC Ma 



033R 
033O 
03U0 



PHI MQ , . {/) 

INC MA ..LEAVE Ma POINTING TO LOW DlVlSOR(/) 
LDX ..NOW HFCK LOW PIT (Ma) IS 0 OR 1(/) 
SHR ..SHIFT THAT LOW PIT OUT(/) 
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n 1 1 F 


?n 1 


03*4-1 




nrr ma rfmfmrfr to rf^ift m a ( / 5 




Mr i 


•J " C- 




RMT RF A nv TO Ann tJfln ( / 1 


'J 1 r 2 




0 314-3 




I cKjr . TE- 1 PIT OF AC 1(/> 


D 1 


FT AO 1 


03414- 




AH I ttRO . .TO MO, 1 {/ ) 


0 124 


PE * 


034? 




PHI MO ..STORE STATijSt/) 


012?; 


PEl 


03U6 




SHL ..SEE IF MO >n(/) 


0) 26 


or t 


0347 




GHI CR »-SEF IF DIVND POSTlVE(/) 


012^ 


Fftfln I 


034ft 




AMI t*PO ..PY TAKE OUT SIGNt/) 


0 12a 


3A2FI 


0 34Q 




PNZ *+ttn6 . , (/ ) 


0 1 ?P 




03=;o 




RNF 09 . .FXIT WITH nFsl ( /) 


0 1 ?n 


30 SP ! 


03S1 




RR nno , . OK ( / ) 


n 1 

u .1 ^ r" 




n3S? 




RDF nUXX ^ IF NFGaTIVFs TH^N 0NT(/) 


n 1 "^1 

U .1 .T 1 




> J O J 




RHT MO SPP TF MO'«0?(/) 


n 1 TO 


Of* ~n 1 








n 1 Til 




nTRt^ 

' ' or*" 




Rl n MQ MaKF CI I9P MQ 0 0 TOO ( / 1 




O #^ ^ ^ p 






Q 7 no TF YF^ a THFN RFTI IRM WTTH nFssI i /\ 


n 1 T7 


' 'J ~ n • 


nT^7 




DB nnn or pi ^f go to n T VT of ( / 1 


1 ^ Q 


^C. ' 


J D " 


PiV/M • 
U V n i 




n 1 A 

1. I ji 11 


r .T i 






n Y r HMP aP T Mf^ C T f^KJ ^ T TQ f / 1 


U 1 


r ( 






CUI aMH T a K F ni IT TH A T Q T T f / \ 


ft 1 


TT 1 Ji • 


n T£ 1 




nOr DiU + "il ..Ir SINU^ Ulrr# it's Ur\v// 


□ J " 


QC I 


(1 JrSZ 




onl C" .«IJTnF"WlSr Tesl ^ioM Ur niviNp\/j 


n 4 

(1 I 


Fr 1 


A TAT 




eUl TP BncTTTWFa DrTI I9M U T TUI nC — l f /I 

^nL . . 1 r Pus IFXvri wf■|lJr*^l HI in ur ~i ( / i 




i,T M ^ H 1 






nrip no ai?Ti irm uttm rtF*i f/l 


0 1 u? 


1 n t 

r 1 1 B 


03(=.*'i 




TMr MA . ."iPF TF LOW RIT OF AC IS 0 OR 1 (/) 


0 1 ii3 


F*^ I 


0366 




LnX ,.LOAn THAT IN D(/) 


0 1 uij 


9n 1 


0367 




HFC ■'1'^ „ , F^FMFMRFR TO RFS^^T MA ( / ) 


0 1 U ^ 


F6 1 


036P 




c;HR », shift THAT RTT OUT(/) 


0 1 1*6 


PF 1 


!'^360 




GLO AC ,,!F AT I'JOT 0 # NOT PROrLEM(/) 


0 ) U7 


3A*iP 1 


0370 




RNZ DOO ..GO TO OIVlDE(/) 


0 


QF 1 


0371 




SHI AC ..RFADY TO CHFCK tta" IF LOW PIT AC IS 1 


0 ] U A 


33*i0 1 


0372 




opF *+flnf^ , . (/) 


0 lur 


32*iU 1 


0373 




PZ no «.N'°> G00n» RETURN WITH nF-1(/) 


0 1 UF 


3n*iPi 


1374 




RR nno . . ANY THING FLSF IS OK ( / ) 


0 1 5P 


Fpnn J 


037f^ 




XRI HftH .IF \C 1 Tc;tNT tlftn(/) 


0 1!^2 


!^ A "^R t 


0376 




Rf47 nno .TT'c; OK f / ) 


0 1<^U 


FFOO I 


0377 


OQ * 


SMI ttflO --np IS SFT TO It/} 


01 1^6 


9C 1 


037P 


nvxx 


• SHI TR ..Put orirtnaL nivND(/) 


0 1 

■J > ^ r 








PMT MA TMTH ma ( / 1 

~ n J, f'lui . . A 1 u \ ^ t 












n 1 na 


AT I 


n .5 n 1 






n 1 c; A 


nc; 1 

nn 1 


n T Q "5 






M 1 Tir^ 


Ml f 










"F 1 


ft T 0 /i 

0 3nl4 




PH 1 '"IQ .BRArK INTO I / 1 




Hr » 


n T D c 




r\ n ro I / \ 
\7\~'J » » y / 1 


n 1 RF 

U F Tin 


AP t 


OTOA 

I' JOO 




Di n MA f / t 


0 1 


1 


1' f 




. OPTION tt3* ASStlMF RFNTAN PROGRAMS NorHFrK 


0 ) np 


t 


n3flR 




_ A*********** (TO CALLf WRITF) *«iftifei|i4(4t*)lsife* 


01>SF 




03P9 




**:t*CALL niVQ 


OlSF 


QF t 


0390 


01 VQ 


! GHI MQ ..LOOK AT DIVIDEND SIGN 


0160 


FFi 


03Q1 




SHL .. IF POSITIVE* 


^- 1 61 


Ffl90 1 


0392 




LOT **90 PLAN TO BEGIN WITH SUBTRACT* 


0163 


r? I 


0303 




LSNF (ALSO SAVE SIGN OF DIVIDEND) 




FP^O 1 


0394 




LOT nSQ OTHER WISE REG IN WITH ADO. 


0166 


AC 1 


039F 




PLO CR .* SET ITERATION COUNT IN CR.O 


0167 


PEl 


0396 


nvLi 


GLO MO ..SHIFT MO LEFT 1 PIT 


016** 


P*"! 


0307 




SHL . .SHIFT LPFT MQ.O 


0)69 


API 


039P 




PLO MQ .. 


016A 


QFI 


0399 




GHI MQ ..SAME FOR HIGH RYTE 
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ni6R 

0 J6R 

oier 

016F 
0170 
0171 
C172 
0173 
037R 
0176 

01 77 
017fl 
Ot7Q 
017A 
017R 

0).7r 

017P 

oi7r 

D 1 pn 
OtRI 
018? 
Olfl? 

ntp7 

OJRP 
03BA 
01 PR 
01 PC 

01 pn 

0 1 P.F 
01°! 
OlO? 

0 1.QU 

01 05 
01 07 
OIQO 
019R 
01OC 
OIPP 
01QF 

0 3 OF 
01. AO 

01 Al 
01 A^ 
OlAl* 
OlAS 
01 Afi 
01A7 
01 AB 
01AA 
OlAR 
01 AC 
01 AP) 
OlAF 
01 AF 
01R0 
01R1 



7^1 

RF! 
RF 1 
FF I 
AF! 
QF i 
7F I 
BFl 
3R76I 
IPt 

rot 

fir » 

F3 J 
FF! 

ini 

PFI 

3RP«Sl 

F7l 

API 

?D J 
PF ) 
77J 

30PA» 

FUt 

Ap-P 

?DI 
PPl 
7iil 
RFI 

?r I 

PC» 
FA7FI 

IFI 
FOftOi 

AC I 

FA3FI 

3Af^7l 

:^3R0 I 

3R» 

IFI 

F3l 

FFl 

ini 

RFI 

3."^ A A I 
Fii I 
4F( 

?ni 

PFI 
7U» 
30AFI 
F7i 

AFJ 
2r) I 
PFt 
77 t 
RFI 
OF I 
3AR6I 



0400 

0401 

0403 
0404 
0405 
0406 
0407 
040S 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
041ft 
04iq 
0420 
0421 
0422 
01*23 
04?4 
0425 
0426 
0427 
Oii?R 

0H31 
OiJ3? 
0433 
0434 
0435 
0436 
nu37 
043R 
043Q 
0440 
0441 
0442 
04U3 
0444 
0445 
0446 
041+7 
044B 
044q 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0115B 

045Q 



SHLC 



SHIFT LEFT WITH CARRY 



\C ..SHIFT AC LPPT 1 BIT 
SHL SHIFT AC.O 

PLO AC 
©HI AC 

SHLC •.SHIFT WITH CARRY 
PHI AC 

RNF *+»03 RIT SHIFTED OUT OF AC. If 
INC MQ GOrS INTO MO.O 
SFX MA .. 

SLO CR .. NOW* WAS THAT AFlRr OR SUBTRACT? 
XOR IT nrPFNOS ON SAVED FLASf 
SHL ,.AND SIGN OF DIVISOR 
INC MA ..MQ.O-CMA.O) 
GLO MO 
BNF DSA 
5M 

PLO MQ 

ner ma 

GHI MQ 



..IF NO FLASfMQ,0+(MA,n) 



TFST CAPRY OiJT OF ADD/SUBTRACT 
IF it SHIFT INTO QUOTIENTr 

AND FLAG MFXT OP AS SURTRACT. 
0THFRWI5E IT'S AOD. 
LOOK AT COIJNTFRI 
IF MOT 0» LOOP RACKj 
AT ENDf CHFCK RPMAINDFR ADJUST, 



..FIX X PTR 

,.D0 THF SAMF FOR HIGH RYTE 
RFMFMBFR THAT PQRROW RiT 
m OSM ..SKIP OVFR ADD STEPS 
nSAl ADD ..MO+(MA) 
PLO MQ 

DFC MA ..DO THF SAMF FOR HIGH RYTE 

GHI MO , , 

ADC ..ADD WITH CARRY 
DSM! PHI MQ ..STOPF R^CK TO MQ.I 

DFC CR COi.lMT DOWN ITERATION CO'JNTER 
GLO rR 
AHI tl7F 
RNF K+ttOB 
INC AC 

ORi feeo . 

PLO CR 

AMI tJ3F , 

RMZ nvL . 

RHF nvB , 

DVC! INC AC (FINAL DiVIDF STEP) 

XOR .. RF SURE TO GFT POLARITY 
SHL OF ADJUSTMENT RIGHT... 
INC MA YES* ADD DIVISOR RACK 0N» 

GLO MQ TO COR^FCT FOR FIMaL SURTRACT* 
RDF DVM { ADDING NEGATIVE IS SURT.) 
ADD WHICH SHOULDN'T HAVF. 

PLO .MQ 
D^C MA 
GHI MO 

ADC ..ADD WITH CARRY 

RR DVR-«01 
DVM; SM . . SAME THINSr 

PLO MQ .. FXCEPTf FOR NEGATIVE DIVISOR. 

HFC MA 
GHI MO 



IF REMAINDER IS NOT ZERO» 



PHI MQ 
DVR: GHI MQ 

RN2 *+t(05 



01R3 


flEl 


0460 




GLO MQ 


01R4 


32C1I 


0461 




RZ DVM RUT IT l%i NO PRObLfM, 


01R6 


PC» 


0462 




GLO CR IF NOT ZERO, 


01P7 


FF t 


0463 




SHL IT SHOULD BE SAME SIGN 


OlRR 


FFl 


0464 




SHL AS ORIGINAL DIVIDEND. 


0 1RCI 


OF* 


0465 




GHI MQ 


0 IRA 


CF 1 


0466 




LSDF 


0 IRR 


FRPO 1 


0467 




XRI M80 


0 IRD 


FCflO 1 


0468 




ADI **80 IF NOT» WF NFFD 


0 tRF 


3ROC 1 


nu6o 




RNF DVC ONE MORE DIVIDE ITERATION, 


0 ICl 


FO 1 


0470 


DVM 


! LDX FINALLY! IF DIVISOR NEGATIVE* 


OlC? 


FF t 


0471 




SHL 


0 1 r3 


3pno 1 


ntj.72 




RNF DVX ,.(ITSS NOT) WF ARF DONE) 


oir5 


RFi 


0473 




GLO AC COMPLEMENT QUOTIFMTp 


01C6 


FPFFI 


nU74 




xpi «FF ry inverting IT» 


OlCfl 


AFI 


0475 




PLO AC 


oiro 


QFI 


0476 




GHI AC 


01CA 


FPFFI 


0477 




XRI t*FF 


oicr 


RFI 


047R 




PHI AC 


oicn 


IFI 


047° 




IMC AC THFM IMCRFMF^ITING 


OICF 


FCOO I 


0480 




AOI «Ofl ALSO CLFAR DF. 


01DO 


D5I 


0481 


nvx 


! SFP RETN .. DF=0 IF DIVIDE SUCCESSFUL. 


01D3 


1 


nitR2 




* • 


0101 


t 


0483 




.. 16-BIT ADD TO ACi OPERAND ADDRFSS IN CALL 


oini 


1 


04P4 




♦•**AC=AC+OPRN OPRNaP BYTE OPERAND 


oini 




0485 




(TO CALL* WRITE) *********** 


omi 


1 


0486 




.. ••**CALL ADDOP I »A(OPRN) 


oini 


t 


0487 




• • 


0 1 P 1 


1 


04PP 






omi 


U6 t 


04PQ 


4DD0PJ LDA LINK FFTCH OPERAND ADDRESS 


0 1 np 


Rn 1 


04QO 




PHI MA .. TO REGISTER Ma 


0 1 ni 


46 1 


04Q| 




LDA LINK 


OlDM 


An 1 


0442 




PLO MA FALL INTO ADD 


n 1 nR 


1 
W 


04Q3 




16-RlT ADD TO AC* OPERAND ADDRESS IN REGI 


0 1D5 


1 


04Q4 




CALL HERE IF OPRN ADDRESS 


0 1D5 


1 


04P5 




. , IS TM REGISTER MA 


0105 


1 


04P6 




****Ar=AC+M(R(MA) ) 


0 JDK 


1 


04O7 




(Tb CALL* WRITE) *********** 


OlD"^ 


1 


niiOP 




****CALL ADD 


nin5 


) 


0400 




* • 


Oi.ns 


FDI 


05PO 


ADD! SFX MA ..CHFCK SIGN BIT OF AC 


0106 


QFI 


0501 




GHI AC ..GET THE OPERAND 


01 07 


F3I 


0502 




XOR ..AND OPERAND OMA 


OIDP 


FPROI 


0503 




XRI 1*80 ..RESULT A 1 IF DIFF 


0 IDA 


t 


0504 




?TR SP . .STORE OM STftCK 


0 1DR 


ini 


0505 




INC MA ..POIMT TO LOW P RITS 


01 or 


PF 1 


0506 




GLO AC .. FETCH AC LOW 8 


oinn 


F4I 


0507 




ADO ADD LOW R FROM MFMORY 


01DF 


AFl 


0508 




PLO AC PUT IT RACK 


oinF 


2DI 


050Q 




DEC MA POINT TO HIGH 8 MtMORY LOCATION 


01F0 


QFl 


0510 




GHI AC 


01F1 


741 


0511 




ADC ..ADD HIGH RYTE WITH CARRY 


0 1F2 


RF 1 


0513 




PHI AC . . PUT IN AC, 


0 1F3 


0? I 


051 3 




LDM SP ..LOAD THE STORFO COMPARING SIGN RiT 


01FU 


r="i 


0514 




SHL , .RESET STACK »TR 


niF5 


3RFAI 


0515 




RNF ADDRT+ttOl ..MOT POSSIBLE 


01F7 


QFI 


0516 




GHI AC ..OTHFRWISF SEE IF SUM IS RIGHT 


01F8 


F3i 


0517 




XOR ..BY COMPARING SIGN RiTS 


OlFo 


FFl 


0518 


ADORTI SHL ..SHIFT OUT 0 INTO DF 


OlFA 


05 1 


051O 




SEP RETN ..RETURN TO MAIN 
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0 1 TR 


1 

r 




• « 




OlFR 


t 


0521 


• • 16-sRIT 


CONSTANT ADD TO AC. 


01FR 
OlFR 


t 


0522 

0523 


.. CALL HF 


RF FOR ADD CONSTANT TO AC 
AC+CONSTANT 


OlFP 


t 
i 


052U 


• • ♦♦**AC3 


uk*«*« (TO CALL* WRITE) 


OlFR 
OlFR 


! 
! 


0525 
0526 


****CALL ADDCON I »C0N5TANT 


OlFR 




0527 


■ • 

ADDCON f GLO LINK COPY LINK TO MA 


u ] V" 


AIJ » 


Of>ZB 


PLO MA 




niwrj 


Q6» 


0529 


6HI LINK 




niF»r 


RD! 


0530 


PHI MA 




0 IFF 


161 


n?;3l 


INC LINK * 


. INCRFMfNT PAST DATUM 


0 tFO 


j ft! 


053? 


INC LINK 




0 1.F1 




0533 


RR ADD , » 


GO ADD. 


OtF3 


t 


0534 
0535 


• a 

16-BIT 


ADD FROM TOP OF STACK 


niF3 


p?i 


0536 


ADDST! GHI SP 


COPY STACK POINTPR 


OIFU 




0537 


PHI MA 


TO MA RESISTFR 


OlFP 




053fl 


GLO SP 




OlFfi 


API 


053Q 


PLO MA 




01F7 




n5taO 


INC MA 


advancf to sup-top (q) 


0 1FP 




051*1 


INC MA 




oi.Fq 


ini 


0542 


INC MA 








0543 


BR ADD «. 


GO DO IT 


OlFC 




0544 






oiFr 


1 


"545 






niFr 


t 


0546 






OlFC 


1 


0547 


PD^H AC 


INTO STACK 


oiFr 


1 


054P 


. . ^TACK POINTFR r 5P 


oiFr 




054P 




(TO CALL» WPITF) ******** 


OiFr 


! 


nFi5n 


♦***CALL PMSHaC 


oirr 


) 


0551 


.. PUSH AC 


(UNDER TOP OF STACK) 


oiFr 


03 1 


0552 


PUSHAC! GHI SP 


COPY STACK POINTFR TO Ma 


OlFH 


RDI 


0553 


PHI MA 




OlFP 


n?i 


0554 


GLO SP 




OlFF 




0555 


PLO MA 




0?00 


ini 


0556 


INC MA 


NOW SLIcF OFF TOP 2 BYTFSf 




.ini 


0557 


INC MA 






FPl 


055fl 


SFX SP 




0?n3 


on ! 


055Q 


LDN MA 


TO MAKF A 2-PYTE HOLE. 






0560 


STXD 






?ni 




DFC MA 






nn 1 


056? 


LDN MA 






7:^1 


0563 


STXD 




OPOfl 


QFl 


0564 


GHI AC 


NOW STUFF AC INTO THE HOLE, 




sni 


0565 


5TR MA 




020A 


ftF) 


0566 


GLO AC 




02nR 


ID J 


0R67 


INC MA 




o;>nc 




0568 


5T=> MA 






?ni 


056q 


DFC MA 


LEAVF MA POINTING TO IT. 


OPOF 




0570 


SFP RFTN . 


. (AC UNCHANGED) 


0?0F 


J 


0571 


PUSH CR 


» MA» MQ (UNDFR TOP OF STACK) 


n^oF 


RD! 


0572 


PU5HC0! GLO MA 


FIRST PUSH Ma ONTO TOP 




F?l 


0573 


5FX SP 




0?1 1 


73 J 


0574 


5TXD 




n:51P 




0575 


GHI MA 








0576 


STR SP 




0?,1U 




0577 


GHI SP 


NOW COPY SP TO Ma 




nni 




PHI MA 





n P 1 fi; 




0579 


GLO 


SP 






0237 


AO? 


05flO 


PLO 


Ma 






025fl 


221 


05P1 


DFC 


SP 






0219 


IDI 


0582 


INC 


Ma 




THEN ADJUST IT 


021 a 




05ft3 


INC 


MA 






021 H 


ID 1 


A C A li 


INC 


MA 




TO Pol NT 1 NTU OLD TOP 


Q21C 


RF 1 


05fi5 


GLO 


MQ 


■ . 


CONTINUF PUSHING t MQ 


021D 


73 1 


05.°6 


STX 


D 






02 IF 


ppi 


05P7 


GHI 


MQ 






021 F 


73 » 


05B8 


STXD 






0220 


ODI 


05PQ 


LDN 


MA 






0221 


731 


0590 


STXD 






0222 


2ni 


0591 


DFC 


MA 






0223 


oni 


0592 


LDN 


Ma 






02?t^ 


73! 


0593 


STXD 






0225 


or I 


0594 


GHI 


CR 


. a 


FINALY INSERT CR IN HOLF 




5D I 


0595 


STR 


Ma 






0227 


IDI 


0596 


INC 


MA 






022B 


RCt 


0597 


GLO 


CR 






022Q 


5DI 


05QB 


STR 


MA 






022A 


D5i 


059O 


SEP 


'^ETN 


. . (MA IS GARBAGE OUT) 


02?R 


t 


0600 










022B 


I 


0601 




=0P 


STACK INTO MQ, MA » CR (UNDER TOP OF S 


0 22P 


1?t 


060? 


POPrQ J 


INC 


SP 




n22C 


921 


0603 


GHI 


SP 


• • 


COPY STACK POINTER TO MA 


0?2n 


BDI 


n6nu 




MA 






n22F 


B2I 


0605 


GLO 


SP" 






022F 


ADI 


0606 


PLO 


MA 






0230 


IDl 


0607 


INC 


MA 


• . 


ADJUST POINTFR TO CR DATUM 


0231 


ID t 


060fi 


TNC 


MA 






0232 


IDt 


0600 


TMC 


MA 






0233 


IPi 


061 0 


INC 


MA 






0?34 


1 nj 


0611 


TMC 


Ma 






0 23S 


1 D t 


061? 


INC 


MA 






0?36 


^Dl 


061 3 


IDA 


MA 


a a 


FFTCH IT 


0237 


RC 1 


0614 


PHI 


CR 






023P 


pn 1 


061 5 


LDN 


MA 






023© 


AC I 


0616 


PLO 


CP 






023 A 


2D 1 


0617 


PFC 


Ma 


■ • 


COPY TOP OF STACK INTO GaP 


023R 


42 1 


061 R 


LOA 


SP 






0?3C 




0 61 o 




MA 






n ■? :^ n 


1 n ! 


. 0620 


TMr 


MA 






023F 


42 I 


0621 


LOA 


SP 






023F 


5DI 


0622 


STR 


Ma 






0240 


42 1 


0623 


LDA 


SP 


a a 


THEN POP MQ 


0241 


RFI 


0624 


PHI 


MQ 






024? 


421 


0625 


LDA 


SP 






0?iJ3 


AF I 


06?6 


PLO 


MO 






0?4£i 


4? 1 


0627 


LDA 


SP 


a • 


FINALLY POP MA 


n?n 


RD 1 


0628 


DHI 


MA 






0246 


0? ) 


062Q 


LDN 


SP 






02**7 


AD t 


0630 


PLO 


MA 






024fl 


D5I 


0631 


SEP 


RFTN 




024<? 


1 


0632 


.. 16-BIT 


ACCUMULATOR LOAD (ADDRESS IN CALL) 


0 ?4P 


1 


"633 


****AC 


=OPRN 


0249 


1 


0634 




**** 




m^^M (TO CALL« WRITE! «*«*****«»«« 


024Q 


» 


0635 


a » 




CA 


LL LOADOP i » A (OPRN) 


0249 


1 


0636 










0249 


461 


0637 


LOADOP! 


LDA 


LINK FFTCH ADDRESS 


024 A 


RDI 


063fl 


PHI 


MA 


. a 


TO MA REGISTER 
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U6I 


0639 


LDA LINK 




ADl 




PLO MA . • PALL INTO LOAD 




) 


0641 


, , 16— RTT ArrUMULATOR LOAD ( AHnRP^^ IN Ma 1 




} 




raLL HFRF TP OPFRAMn 




} 


0643 


, , ARDRFSS IN REGISTER Mft 




) 


0644 


. 9 ****AC=M(R(MA) ) 


o?un 


1 


064fi 


• • **4t****««««« (TO CALLr WRITE) 


02un 


1 


0646 


.« «***CALL LOAD 


apun 


t 


0647 




o?un 




064R 


LOADS LDA MA .. FFTCH HIGH B 






064P 


PHI AC 






nfi">o 


LDA MA NOW LOW S 




^Pt 


0651 


PLO AC LFAVP MA AT CJFXT HOURLP-RYTE 


0?S1 


OR I 


OftR? 


%rP RETN 6FFr THAT WAS QUICK. 


0?B2 


1 


0653 






1 


0654 


• • 




1 


06H5 


16-RIT ACCUMULATOR LOAD FROM CONSTANT IN 




} 


06'!;6 


****AC=rON5TAMT 


0?«^2 


s 


0657 


, . ««4««4*««««4i (TO CALLr WPITF) 




1 


0658 


****rALL LOOCON 1 rC0M5TANT 




s 


065Q 






1*6) 


0660 


LOOCOMI LDA LINK FFTCH HIGH 8 




pn 


0661 


PHI AC 




U6t 


0662 


LDA LINK .. THEN LOW 8 




apt 


0663 


PLO AC 






'^664 


?FP RFTN 


Q?^7 


1 


066^ 






1 


0666 




f)?^7 


1 


0667 


. . **4i«0PRN=Ar 


02«S7 


1 


066R 


*«it<«4*«*)li*:^« (TO CALLp WRITE) 




I 


0669 


*«**CALL STOROP f •A(OPRN) 




t 


0670 


• • 


0?R7 


U6) 


0671 


'STOROPl LDA LINK FETCH ADDRF«1S INTO Mft 




RD» 


067? 


PHI MA 




461 


0673 


LDA LINK 




ADl 


0674 


PLO MA THEN FALL INTO STORE 


oi?pn 


1 


n67R 


• • 16-RlT ACCUMI(LA70R STORF (ADORFSS IM Ma) 




I 


n676 


• , ♦♦**M(R{Ma) ) rAC 




1 


0677 


(TO CALL* WRITE) 




I 


n67n 


****CALL STORF 


0?5R 


t 


067O 


■ • 


0?5R 


OF I 


06flO 


STOREJ GHI AC FIRST HIGH 6 


025r 


^nt 


0681 


STR MA 


02Rn 




0682 


INC MA .. INCREMFNT Ma» SINCE STR DOESN'T 


n25F 


flFi 


0683 


GLO AC .. NOW LOW 8 


025F 


BP J 


0684 


STR MA 


0260 


ID) 


A6P5 


INr MA LPAVF Ma POINTING TO NEXT WORD 


0263 


D5( 


0686 


SEP RFTN QUIT 


0 262 


1 


0687 




026? 


1 


0688 




0?62 




068Q 


16-RlT COMPARF* OPFRAND ADDRFS? TN CALL 


026? 


1 


06QO 


****Ar-OPRN (DF SFT TP 0 OR +1 


0262 


1 


0601 


*******JkTti**A (TO CALL* WRITP) 


0 262 


i 


0692 


*4»«*CALL COMOP t »A(OPRN) 


0262 


i 


06Q3 




026? 


ii6) 


0694 


rOMPOPf LDA LINK FFTCH ADDRESS 


0263 


Rni 


0695 


PHI MA TO MA REGISTER 


026U 


U6) 


0696 


LDA LINK 


026"=; 


Am 


0697 


PLO MA 


0266 


f 


06P8 


16-RIT COMPARE* OPERAND ADDRESS IN REGIST 




Appendix B{ti) 



0?66 


1 


06P9 


CALL HERE IF OPERAND 


0266 




0700 


. . ADDRF^S TN RFSI^TFR Ma 


0266 


I 


0701 


**** A(*«M ( R ( Ma 1 1 ( riF Q!PT TP 0 riB * 1 


0266 


I 


0702 


. . 4^4 4 ^A!^;^^** 4 ( TO r&LLs WR TTP) **il4l**4EAAAA 




t 


0703 




n?AA 


1 
i 






'J •'on 


rn t 

t n » 


• ' / Ur) 






Off 1 




RU T a ^WCrk T C C T ttW HP i^DPDAKine aDs? CaM 






U / I' T 


YrtD R Y 1 nriX T Mft AT TWP W T ftUFCT C T /~M O T T 
AUK • ■ n I UUU^ ii^l? Al inp nl onp bi biGi^ HIT 


^ £. 


r A mO 1 


U TUH 








n TA n 


HNt CINt •«lp NOTi TncIN uO TO CNt 






n"71 n 

n f M 1 


f;i~iT A?* 




P7 J 


071 1 


D ft 


0?6F 


3A77I 


0712 


RNZ CMPX NOT FQUAL OlITT^ 


0271 


ini 


0713 


INC MA TRY LOW 8 


027? 


8F t 


0714 


GLO AC 


0273 


F7t 


07J5 


SM 


0?74 


?ni 


0716 


DEC MA •« LEAVE MA POINTING TO IT 


0275 


381 


0717 


tttSR 


0276 


F4I 


071 R 


CNFi ADD ..SEE IF OPERAND IS NEGATIVE 


0 277 


051 


071Q 


CMPXt SEP RFTN ..DFrl IF AC>=(Ma) 


0 278 


1 


0720 




0278 


1 


0721 




02?fl 




0722 




0278 


i 


07?3 




0?78 


f 


0724 


..TFST 16— RiT ACrUMI )Li,1T0R ^IGNJ/ZFRO ...... 


0 278 




0725 


TNr LTNK ..^KTP OVFR NON 7PRQ RFTt IRN 


0 ?70 


1 A 1 


n 72a 




n ?7 A 


1.' " • 


ij f r ' 






OF t 
MP 1 


n / <;n 


TtfCT* AUT A/* CTBQT t rtrtl/ AT C T /SKI 




PIT 1 

rr » 




TirlL ■ • SET rir Ir fiiNi fs 




Off ( 




wMl AC • ■ MUW ^^rC^ rOR n 


n 4Tr 


V * • 

O A 'n 1 








Mr 1 


U f .I? 


^1 A At* 

t»L D AC 


U (Tn J 


A f 






0 








0285 


f 


0 735 


.. POP STArK (TMTO ATI ( 1 iMnFR TOP) 


0285 


1 




. . POP? 9 RYTP«l FPOM CTArK TrJTfl Ar 


0285 


1 


0737 


****ri(rit«A)k4(A* (TO TAl L* WRTTTl •iAiklfciliitA* 

p ^ re»»" <w Tf* V F W V 1-1 L_ <— W fw'-JLll. r T VP^P^tn^'n 


0?fl5 


1 


0 738 


, , ****CALL POPAC 


0285 


FFOn 1 


0739 


POPAC! SMI WOO SFT DF TO REMFMRER THIS FNTRY 


0P87 


r8( 


0740 


LSKP , 


0288 


FCOO 1 


0741 


POP! ADI tlOO CLEAR DP FOR THIS^FNTRY 


028A 


i?i 


0742 


INC SP 


02PR 


Q? ( 


0743 


GHI SP .« COPY SP TO MA 


0?8C 


RD 1 


0744 


PHI MA 


028n 


82 1 


0745 


GLO SP 


0?8F 


ADf 


0746 


,PLO MA 


028F 


IDI 


0747 


INC MA ADJUST TO SUR-TOP OF STACK 


02QO 


IDI 


0748 


INC MA 


0291 


3R48t 


074Q 


f^KjF *+ti07 


0293 


tip 1 


0750 


LDA MA POPPING INTO AC- GFT DATUM 


0?QU 


RF 1 


0751 


PHI Ar 


02Q5 


on 1 


0752 




0296 


API 


0753 


PLO AC 


0297 


2DI 


0754 


DEC MA 


02Q8 


421 


0755 


LDA SP NOW CLOSE UP THE GAP 


02PP 


501 


0756 


STR MA 


029A 


IDI 


0757 


INC MA 


0298 


021 


0758 


LDN SP 



U tr>)\. 


DiJ 1 


0759 


STH M A 


U 


J D 1 


A ^ dC n 

0760 


1 NC MA 




>^ C I 

d5 ) 


0761 


ScP ncTN a ; MA rOlNTS TO NeW SUR'-TUr 


U 


1 


0762 


• • 




1 


0763 


DECIMAL TO BINARY CONVERSION 


A A A |P> 


\ 


0764 


AC=DcCIMAL NUMRCR OF N BYTES 


OPQF 


\ 


0765 


a* DFCIMAL NUMRFR s SIGN»NNt * • ■ • • rNt rNO 


u29F 


% 


0766 


• ■ SIGNerOB + 


u2PF 


1 








1 


U f dH 


Kin 1 A 4>>i«f n r^TfTT 

a* NUSXn'*SP UltolT 


UZPF 


1 


0769 


KI'1_4Aii«iib4 r\TAT"r 

Nino**! DIGIT 


0 2OF 


1 


0770 


a» iTO CALLr WRITFi •***••* 


D2PF 


} 


0771 


***4i CALL CDBl rA(NUMBERi| ^LENGTH 


0 2OF 


(^ft 1 


0772 


fDBf LBA LINK .aGFT NUM ADDRESS 


Q?AO 


RA 1 


0773 


PHI AR ..AND STORE IN RA» 


OPAl 


ti6 J 


0774 


LDA LINK 


0PA2 


AA J 


077B 


PLO AR 


0?A3 


46 ! 


0 776 


LDA LINK ,.GFT LFNGtH 


OPAM- 


FFOl J 


0777 


?MI tt01 ..MINfJS SIGN RYTF 


n^Aft 


AR J 


077n 


PLO NR ,.ANO STORF IN Rp, 


OP.Al 




0779 


LOI BOO ..CLFAR RF 




AF 1 


D7Pn 




UFA A 


RF # 


U7nl 


HM 1 AC 




n A 1 




LDN AR • •CHECK SIwN RYTc 


n ?AC 


P* K A n ■ 


A *V n ^ 

n7B3 


XRI Bun 4»MIMU5? 


n n A ftp 


RR t 


07R*4- 


I NR • • I rJTO NR • 1 


ORAF 


4 ■ ■ 

1 A 1 


rt ^ c 

0 7Mn 


LOOPI INC ,,GRAR THF FIRST DIGIT 


U ?RU 


F2 I 


A BV A ^ 

0786 


St A t'^ • •FIX A PNTR 


U i^R 1 


n * ( 

n A 1 




1 nKi AS <•! Fab utali avtp f nB a»ATT\ 
LDM AR • aCLCAR nlbn RTTc (rOR ASCII ) 




"AOF 1 


07nft 


ANI BOF 




•>? 1 


07flO 


STR SP ••PUT IT RACK 




flF > 


07°0 


GLO AC ••ADD THAT DIGIT TO ACCUM 


0 ?Bft 


Fti 1 


07Q1 


APD 


0 ?n7 


AF J 


A Aft 


m /S A A 

PLO AC 


0 


QF I 


A 


^ LJ Y A A 

GHI AC 


0?RQ 


7rno % 


n7QM- 


AOrl ROO ••REMEMBER CARRY OVER 


0?RR 


RF ( 


0795 


PHI AC 


0?PC 


,T3FFl 


07OA 


RDF OVfLW exceeds ACCUM LIMIT? 


02PF 


?R 1 


0TP7 


DEC NR ••DEC DIGIT COUNTER 


n?RF 


AR 1 


07OR 


GLO NR ••SEE IF IT IS 0? 




"Stt^ \ 


0709 


R2 FINAL ..YFS» THFN DONE 


o?r2 


AF 1 


OROO 


GLO AC ..OTHFRWI?? MULTIPLY THF ACC RY 10 




FF > 


0 AO J 


SHL 


02f U 


73) 


OflO? 


STXD 


0 2*5 


QF ) 


0R03 


LJ T A A 

GHI AC 


u?Cn 


Tr 1 


A a A r 1 


SHLC «■ CARRY OVFR 


U C V. 1 


1 J 1 




CT Yn 

5 1 M) 




.^3r n 1 


A B A £ 

unUn 


RDp OVrLW^BOg • •CAtrcDcn ACC UMiT 




r ""JZ 1 


A BA^V 




^ A A A 


rS? 1 


A A A n 


MP TO ! ^TP Sr* • • LOOP CO' JNT 


u ^rn 


f 




f^l A A A 

GLO p C 


n ^ ^ 


r F I 


083 0 


5nU 4 4 NOW Snir T AC OVER ** TlMrS PfU'rC 


u2rF 


AF ) 


A A ^ 4 

ORl l 


m A JV A 

PLO AC 


n ft n A 


9F 1 


A n 4 A 

0812 


^LIT AA 9AU0PAn AA 4 

GHI AC ••SAME FOR AC»1 


u «:m 


7r 1 


A a 4 ^ 


SnLC 




PF % 


OBI'* 


SLJT A A 

PHI AC 




53F D I 


A n 4 C 


nnp A\/pl Ui_>Hno TP ai/^i aui> bivp^y ^vaai/ 
RDr 0VrLw—F»n2 • • IF uVFLOW* KF5FT STACK 




n?i 


0816 


LDN SP ..CHFCK LOOP COUNT 


0 2nf. 


3?nr I 


0817 


RZ MPYIO ..AFT^R MULPLY BY 8 


o?nfl 


FFOll 


0818 


SMI aOl ..OR ELSE DEC LOOP COUNT 
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02DA 


30 CC 1 


ORIQ 


BR MPY3 ..BACK FOR MORF ADDITION 


02Dr 


1?I 


0R20 


MPYlOl 


INr SP ..RECOVER LOOP COUNT 


02RD 


QF I 


0 821 


GHI A 


C , . ADD HIGH RYTF 


02DF 


put 


0822 


ADD 


. . ADD 8ACr TO 2Arc 


02nF 


RFI 


0823 


PHI 


AC 


02E0 


33FE 1 


0R2U 


RDF 


OVELW-ttOl • .RESULT OF IF OVFLOW 


02F? 


121 


PP25 


INC 


SP ..RESET STACK PNTR 


Opr-S 


8F ) 


0826 


GLO 


AC ..SAME FOR AC.O 


0 2Fa 


Fh t 


0827 


ADD 




0?F5 


AFI 


0828 


PLO 


AC 


0?F6 


QFl 


0829 


GHI 


AC . .FOR CARRY OUT 


0?F7 


7r00 1 


0830 


Aor T 




0?Fq 


RFl 


0831 


PHI 


AC 


02FA 


3RAE 1 


0832 


BNF 


LOOP ..IF NOT OVFLWr GO RAfK FOR MORE 


02^P 




0833 


L^KP 


. «^KIP c;tacK rf«ift 


o?Fn 


1 2 1 


0R3U 


INf 


^P « .''F^ET ^TACK PTR 


0?FF 


1 ? I 


083R 


T^J(°' 




0?FF 


1 


0836 






0?F0 


OF t 


0837 


F T M A! 9 






r I. r* U 1 




An T 






a Or t ' 


u n 


nM7 

ni It 




n OCR 






fil 0 




Q7F6 


3AFr 1 


ORUl 


rnz 


CP ..IF NOTf SO TO rOMP 


02FR 


QR t 


0RU2 


GHI 


NR ..SEE IF IT IS POSITIVE 


02FQ 


FrFP 1 


0RtK3 


ADI 


ftFF ..SET OF ACCORDINGLY 


02FP 


051 


np,£iii 


SEP 


RETM 


o?Fr 


33FR) 


0845 


CPs RDF 


*-tJ01 . .OVFRFLOWED! 


n?FF 


QR 1 


0846 


GHI 


NR . .TEST FOR ^IGN 


02FF 


3A09t 


0847 


RNZ 


EXIT ..IF POSi DONE 


0301 


RFl 


0848 


GLO 


AC ..IF NES» SUBTRACT FROM 0 


o:?02 


FDOO) 


0R4q 


501 


WOO 


OSO*i 


AEt 


0850 


PLO 


AC 


0305 


QFl 


ORRI 


SHI 


AC 


0306 


1 


0852 








7DO0( 


0053 


SORI 


ttOO 


0308 


RF) 


C854 


PHI 


AC 


0309 




0 855 






0309 


f 


08S6 




. BINARY TO DECIMAL CONVERSION 


0309 


t 


0P57 




. 4i**«DECIMAL NUMBER = AC 


0309 


1 


085R 




. DECIMAL NUMBER = SIGN»NN #Nl,NO 


0309 


t 

r 


0R5Q 




. SIGN=«OB + 


0 ""^no 

V.J'**-* 


t 


' 0 0 u 




. ?lGN=ttOD - 


0 300 


1 

* 


u 0 0 J 




. ND=10**n DIGIT 




1 


u no t 




. Nl=10**l DIGIT* FTC 




t 






. (TO CALL* WRITF) «*««*Jk4F« 


0 309 


I 


0 86*^ 




. «4«44i* CALL CRD) M ( NUMBER )l » LENGTH 


0 309 


D5 1 


0R65 


EXIT! SEP RETN 


030A 


U6I 


0866 


CBDI LDfl 


LINK ..GET THE ADDRF5S 


030P 


BAI 


0867 


PHI 


AR ..AND STORE IN RA 


030C 


U6l 


0668 


LDA 


LINK ..SAME FOR LOW BYTE 


0 300 


AAI 


0869 


i=LO 


AR 


030F 




0870 


LDA 


LINK . .GET LENGTH 


0 30F 


FFOl 1 


0871 


SMI 


«01 ..SURTRAC FOR SIGN BYTE 


0311 


ARl 


0 872 


PLO 


NR ..STORE IN NR.O 


031? 


RRI 


0873 


PHI 


NR ..AND NR.l 


0313 


FflOFi 


0R74 


LDI 


«0F ..NUM OF ITERATIONS 


0315 


ADI 


087^ 


PLO 


MA ..STORE IN MA.O 


0316 


9F 1 


0876 


GHI 


AC ..TEST FOR SIGN 


0317 


FEI 


0877 


SHL 
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r nu n ' 


O Q "T Q 


LL'i "Uh sa ir ur — 0 > ii ib Pus 


1 A 


^ n ^ A * 


Ofl7Q 


BnF P05 • « 


U olC 


RF 1 


ORftO 


GLO AC .•OTHERwISF CONVERT IT TO POS 


u 3 ID 






SDI »00 


n ^ 1 e 

U Cjlr 


Ar 1 


A Q n ^ 


PLO AC 


ft 






oMl AC 


U Oir J 


Tnnn i 






03?5 

V w t- w 


1 




PHT AT 








LRI won --MTNH"? ClfiN 




CRI 


0PR7 


LSKP . a 




FAOO 1 


OflPfl 


LDI ttOO 


03?O 


» 




PO^ S STR AR . .PUT IT TM ^IG^] nYT 


03? A 


8R ) 


ORCiO 


GLO WR ..CHFrK PIGTT ("OIJNTPR 


n^pR 


3P3? 1 








1 A 1 




TNr AR --GO Trt N^yT nTflTT 


^ ' ws_ "7, 






Ljr t •«ucL LfitJii i.i'JirT 




3n97l 






0 331 


r? ) 


PPQS 

V« t' ^ ^.J 


CE-Y CP 


033P 


QR P 






0333 


AR 1 




D| n MR 




pr 1 




L-UOr*! s (7^u AC ••^nlrl HIT Or AC UUT 


0 33*^ 


r r # 




CHI 


n33A 


AT 1 




Dl n Ar 






n nn 1 


5r11 AC 




"TP 1 


n nn o 


5nLC SAME POR AC*!. 


■J O^l" 


) 


rif^n t 

UMTl 


PH I AC 


U ,T ft 


HA* 

If A J 


A A A f 1 

n a ti 


LuN AR 




* 

7" 0 0 1 




AnCI woo .<ADD TO LOWFST nlQIT 






(.■ " U o 


STH A^ 




on 1 




MA • aPOf^ MORE ITERATION? 








niNt O • •CON 1 INUE *p MORp ITERATION 


0 3lil 




U *y U *^ 






OA 1 




MryTt I nN ar .i oad nT/sTT 


03U3 


tf 1 


(loll 


?HLC a.5HIPT LFPT OUPP ONf*P 


03aa 


» 


0O12 


<?TR AR , ,P!)T IT Rack 


0 3U5 


FFOA ) 


riQi 3 


'^MI HOA . -MPFn TO TNr NPXT nlRlTP 


03U7 


3RU A I 




RMP * + Bn3 ..CKIP IF MOT'S! n 




SA 1 


nc5i pi 


^TR AR a.FL^F 1 IPRATF RlSlT 




PA 1 




DFC AR --SO TO MFlfT nISiT 


03Ur 




0Q17 




03Ur 


AR 1 


OQlfl 


GLO NR -THFCK TF n9 


P3iin 


3AU? 1 




nM7 MPVT TF MnT ■ nfl TMF C aMF STAB KlffVT nTAT 


034F 


33U1 1 




RDF ifMpi nvFBd nwpn 


03*^1 




no?i 




0 3«^5> 


on I 


u 




0 3'S3 


SP 1 


n a33 

U ^ *J 


CTH CO PI IT r\TftTT AW CTAZ-k 


u or? *T 


O A t 

OA • 


1.' VlT** 


Ai n AS 

OUU A'^ 








Ann 

AUD 




AM 


0O26 


PLO AR 




QAl 


0q27 


GHI AR 


03"5R 


7r00i 


0o2fi 


ADCI ttOO 


035A 


RAl 


0020 


PHI AR 


n3SR 


303? I 


0Q30 


RR LOOPl-tJ02 


03fiD 


1 


0931 


FND 
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Sample Program 



A sample program to demonstrate the use of the 
Arithmeiic Subroutine Package is given in this appendix. 
This program accepts two input parameteis-PRlCE and 
POUND, calculates the PRICE -POUND product (TO- 
TAL), and oulpiils TOTAL after rounding and truncation. 

The input parameters are in BCD form and a maximum 
of four digits is t!no\ved. A decimal point is also assumed 
on the left of the second least significant digit, i.e., 
00.00 < PRICE, POUND < 99.99. 

These parameters are then converted into binary 
numbers and TOTAL is calculated by multiplying PRICE 



and POUND in binary. This binary product is divided by 
100 to eliminate the last two decimal digits of the 
eventual BCD TOTAL. If the remainder of the division is 
greater than fifty, one is added to the 1 6-bit quotient (for 
rounding purposes). This latter is then converted back 
into BCD form. 

Note that since the binary -to-BCD routine is designed 
for 16-bit conversion only, an overflow condition will 
occur if TOTAL is greater than 327.67. The DF flag sets 
if overflow occurs. 



-♦PRICEbin in fl(ACi 



Save PRICE in R(AC) 
» Stack 



POUNDbcd >» MEM 
POUNDbin in RIAC) 



Set Address Ptr. R(MA) 
PDinting to PRICEbim 
on stack 



PBICEbin in MEM *- 

POUNDbin R(aci 

^ TOTALgiN in R(MQ(; 
R(AC( 



Load Constant IOOkj 
onto stack; set R(MA) 

Pointing to the constant 



T 



Call SUB CDB 



TOTALbin in R(MQ|: R(AC) 
/lOOio -"-TOTALbi^j tn 
R(AC);lruncatB(i digits in 
R{IVIQ) 



Gait SUBPUSHAC 



Call SUB CDB 




Round Up 
TOTALbin 



TOTALbipj in R(AC| 
^ TOTALbco in I^EM 



Call SUB MPY 




Call SUB OIV 



Call SUB CBD 



F/ow chart of sample program. 



92CS-2S0e4 
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0215 




0037 




0215 


D4; 


0038 


SEP CALL . . DO DECfMAL TO BINARY CONVERSION 


0216 


07 6E; 


0039 


,A(CDB) . . " 


0218 


0270; 


0040 


.A(PRICE) . . CONVERT PRICE INTO BINARY 


021 A 


05; 


0041 


,^¥05 . . PRICE IS 5 CHARS LONG 


021B 




0042 


... AC NOW CONTAINS BINARY VALUE 


021 B 




0043 


, . OF PRICE PER POUND 


021B 




0044 




021B 


D4; 


0045 


SEP CALL , . PUSH CONTENT OF AC INTO STACK 


021 C 


OGEO; 


0046 


,A(PUSHAC| , , " 


021 E 


; 


0047 




021 E 


D4; 


0048 


SEP CALL , . DO DECIMAL TO BINARY CONVERSION 


021 F 


076E; 


0049 


,A(CDBt . . ■' 


0221 


0282; 


0050 


,A{LBS} ., CONVERT QUANTITY (LBS) 


0223 


; 


0051 


. . , INTO BINARY 


0223 


05; 


0052 


,^f05 . . QUANTITY IS 5 CHARS LONG 


0224 


; 


0053 


. , AC NOW CONTAINS BINARY VALUE 


0224 




0054 


. . OF QUANTITY (LBS) 


0224 


; 


0055 




0224 


82; 


0056 


GLOSP ..COPY STACK POINTER TO MA 


0225 


AD; 


0057 


PLOMA,." 


0226 


ID; 


0058 


INC MA .. POINT TO AC. 1 


0227 


; 


0059 




0227 


04; 


0060 


SEP CALL ., DO THE MULTIPLICATION 


0228 


0475; 


0061 


.A(MPY) , , " 


022 A 


; 


0062 




022 A 


; 


0063 


, . , DIVIDE BY iOO TO REMOVE LAST TWO 


022A 


; 


0064 


. . . DECIMAL DIGITS 


022 A 


12; 


0065 


INC SP ., MOVE SP TWO BYTES 


022 B 


12; 


0066 


INC SP . , , BELOW TOP OF STACK, POP PRICE 


022C 


; 


0067 


. . . OFF STACK 


0??C 


F864; 


0068 


LDt 100 . . LOAD 100 INTO STACK WITH 


022 E 


52; 


0069 


STR SP ...SP POINTING TO THE HIGH BYTE 


022 F 


22; 


0070 


DEC SP ..." 


0230 


F800; 


0071 


LDI 00 ..." 


0232 


52; 


0072 


STR SP ..." 


0233 


82; 


0073 


GLO SP ..COPY STACK POINTER TO MA 


0234 


AD; 


0074 


PLO MA .. POINTTO HIGH BYTE OF 100 


0235 


22; 


0075 


DEC SP .. POINTTO FREE SPACE 


0236 


D4; 


0076 


SEP CALL 


0237 


(K1E; 


0077 


,A{DIV) ,, DIVIDE PRODUCT BY 100 


0239 


334A; 


0078 


8DF LAB3 . . IF OVERFLOW GO TO LAB3 


023B 


; 


0079 




023B 


; 


0080 


. . . CHECK IF REMAINDER IS GREATER 


023B 


; 


0081 


. , , THAN 50, IF SO. ROUND UP 


0238 


8E; 


0082 


GLO MQ , . MQ CONTAINS THE REMAINDER 


023C 


FF32; 


0083 


SMI 50 


023E 


3B41; 


0084 


BNF LABI IF NO ROUND UP 


0240 


; 


0085 


GOTO LABI 


0240 


IF; 


0086 


INC AC .. IF ROUND UP ADD 1 TO 


0241 


; 


0087 


. . . THE LEAST SIGNIFICANT DIGIT 


0241 


; 


0088 




0241 


12; 


0089 LAB1: 


INC SP . . MOVE SP DOWN TWO BYTES 


0242 


12; 


. 0090 


INCSP ...BELOW TOP OF STACK 


0243 




0091 




0243 


D4; 


0092 


SEP CALL . . DO BINARY TO DECIMAL CONVERSION 


0244 


0645; 


0093 


,A(CBD) . . " 


0246 


0287; 


0094 


.A{TPR) , . CONVERTTOTAL PRICE INTO DECIMAL 


0248 


06; 


0095 


,#06 . . TOTAL PRICE IS 6 CHARS LONG 


0249 




0096 


. . TOTAL PRICE IS STORED IN M(TPR) 


0249 




0097 





Partial assembly-language listing of the calculation subroutine. 



